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XZTITLE a resctal parameter handling routines’ 
MODULE NMLSLISPRM ( 
LANGUAGE (BLISS32) 
ADDRESSING_MODE (N 
ADDRESSING res 43 (E 
pDENt = 'v04-000' 


ONEXTERNAL=GENERAL) , 
XTERNAL=GENERAL), 


Soooooo 


COOSCSOO 


NOUS WN 


S 


BEGIN 


Lee RRR AERA AAA REAR EERE RAE EEA AAT EAA 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 

‘® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
's COPIES THEREOF MAY NOT BE PROVIDE HERWIS I 

'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
'w TRANSFERRED. 


iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- aeePORAT itn NOT BE CONSTRUEC AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILIED BY DIGITAL. 


'@ 
See RARE RARAA RARER AREER AEE AAT AAA RAAT EREE 
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0 
0 '+¢ 
FACILITY: DECnet-VAX V2.0 Network Management Listener 
i 9 i ABSTRACT: 
9 0039 i This module contains action routines to handle changing and 
re Bee displaying of permanent data base entity parameters. 
42 0048 i ENVIRONMENT: VAX/VMS Operating System 
4 0044 ; AUTHOR: Distributed Systems Software Engineering 
46 0046 i CREATION DATE: 23-JAN-1980 
47 004 : 
48 0048 ! MODIFIED BY: 
49 1049 : 
50 50 ‘ v03-008 MKP0009 Kathy Perko 2-Aug-1984 
51 0051 : Fix DEFINE EXEC ADDR nm so that, if n doesn't include an area 
26 O3¢ number, area 1 is used. 
3 054 i v03-007 mKP0008 Kathy Perko 20-April-1984 
55 055 : Fix DEF NODE nnn ADDR yyy so that, if the address is a duplicate 
28 peo : of the executor's, the error message indicates ‘executor 
7 05 : instead of ‘‘remote node’’. 
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NML special parameter handling routines Sep AX-11 Bliss-32 V4.0-74 
“ , , 1ergee=} 88s 99:18:38 HAM a ss Fe a Bor 
1! 

25 1! v03-006 iat 9H Kathy Perko 18-April-1984 

29 1: x DEF EXEC NAME or ADDRESS so that’ exec id globals 

re : Aen updated. 

O68 ii V03-005 MKP0006 — Perko 29-Jan-1984 

bes : } If NCP is a V3.0 mask area in node numbers. 

066 1/ v03-004 KPO athy Perko 4-Aug-1983 
0067 1! change. routines to nenteciate eorpensns database record 
0068 1! fields to be transparent to ISAM keys at the beginning of 
534 .s the records. Also, redo checking on node ids for the new 
Oey } node database format. 
007@ 1/ v03-003 MKP0004 y Perko 29-July-1983 
0075 1! Redo NMLSLISNODED. sorter to return only the node id if 
Bate : the PSTs datatype is NMASM_PTY_CM1. 
0076 1: v03-002 MKP0003 athy Perko 13-July-1982 
0077 1! Fix NMCSLISPARAM” ce Ydd parameter pongene correctly. 
ith } Fix List routines for channels and set passwords. 
0080 1! v03-001 MKP0002 Kathy Perko 16-June-1982 
itt : } Add new List routines for range and circuit owner paramters. 
boas 1/ v02-001 MKP0001 Kathy Perko 2-April-1982 
0084 1! Add changes for X-25. Protocol Networks and DTE, and 
Ba82 : for X-25 Server Modules. 
0087 1! v02-001 MKP001 athy Perko 24-July-1981 
0088 1! Delete NML call _ map VMS Line to DNA Line name and 
0089 1! vice versa. 
0090 1 !-- 
0091 1 


N 2 
NMLSLISPRM NAL special parameter handling routines 16-Sep-1984 00:16:5 AX-11 Bliss-32 V4.0-74 Page 3 
yoreb08 Declarations’ a Pe aet) Re Ht ce TT RRS CR EE 9° 623 
3 33 4 } ZSBTTL ‘Declarations’ : 
: 95 9% 1! ; 
; 96 95 1 ! TABLE OF CONTENTS: ; 
; 97 36 1! ; 
; 98 097 1 $ 
3 99 098 1 FORWARD ROUTINE : 
: 100 099 1 NMLSLISNMLVER, : 
; 101 100 1 NMLSLISLOONAM, ; 
3 06 13) 1 NMLSLISNODEID, ; 
: 10 01 § 1 NMLS$LISPARAM H 
> 104 919 1 NMLSLISPASSWORD, : 
; 105 104 1 NMLSLISPWSET, > 
: 106 010: 1 NMLSLISRANGE, 
s 107 8196 1 NMLSLISOWNER, 
: 108 0107 1 NMLSDEF PARAM, 
; 109 bio8 1 NMLSDEFLINLTY, 
s 110 109 1 NMLSDEFLINTRI, 
s $37 0110 1 NMLSDEF _NODE_ADDR, 
3 \¢ 0111 1 NMLSDEF EXEC] 
: 11 Oi1¢ 1 NML_FIND_DUPCICATE_NODE, 
3 116 0113 (1 NMLSDEFNODNLI, 
s 115 0114 «#1 NMLSDEF ° 
; 116 0115 1 NMLSPURPARAM, 
s 117 0116 +1 NMLSPURNODNNA; 
; #118 0117 1 
s 119 0118 1! 
: 120 0119 1 ! INCLUDE FILES: 
: 121 pis 1! 
; 13 0121 +1 
. = gt § 1 LIBRARY ‘LIBS:NMLLIB.L32'; 
: 126 1 1 LIBRARY ‘SHRLIBS:NMALIBRY.L32': 
: 125 oi 4 1 LIBRARY 'SYSSLIBRARY:STARLET.L32'; 
; 126 125 1 
2 Ser 0126 1! 
s 128 0127 1 ! OWN STORAGE: 
3 194 0128 1! 
2 cee 
: 132 $134 1 ' Parameter buffer and descriptor for use in handling volatile data base 
; 133 0132 1! data. 
s 136 gis 1! 
3 55 134 1 OWN 3 
: 136 3 5 : mien et ermeut tor : VECTOR C256, BYTE); 
: 138 3 ; : nml$q_prmdsc = UPLIT (256, nml$t_prmbuffer) : DESCRIPTOR; 
: 140 139 1! Entity buffer and descriptor. 
3: 6161 140 1! 
: 166 141 1 
: 14 136 1 nml$t_entbuffer : BBLOCK (nml$k_entbuflen], 
7 146 443 1 nml$q_entbfdsc : VECTOR (2); 
: «6145 144 1 
3 146 145 1! 
es 16 123 1 ! EXTERNAL REFERENCES: 
; 148 Bie 1! 
: 149 148 1 | 
| 
| 
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1 SNML_EXTDEF; 


EXTERNAL LITERAL 
nml\$_recbfovf, 
nml\$_recdelet; 


vache 

nm\$gw_perm_exec_addr : BBLOCK (2), 
nml$gb_ncp_version, 
nml$gq_perm_exec_name_dsc : VECTOR (2), 
nm\$gq_proprvmsk : BBCOCK (8); 


EXTERNAL ROUTINE 


: 


8 a > st a ts tt tt tt 
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nml$send; 
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AX-11 Bliss-32 V4.0-74 
NML.SRCINMLLISPRM.B32; 
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NMLSLISPRM NAL special parameter handling routines 1b-se -1984 00:16: AX-11 Bliss-32 V4.0-74 Page 
yO%-000 NMLSUTSNMLVER Get NML version number 122808=1 38s 99:38:38 NAL -SREINMELISPRM-B32; 
8 17 XSBTTL "NMLSLISNMLVER Get NML version number’ 
2 \ve GLOBAL ROUTINE NMLSLISNMLVER (SEM_TABLE, BUFDSC, MSGSIZE, DUMDSC) = 
1 lee 
¢ FUNCTIONAL DESCRIPTION: 
4 This routine moves the network management version number into 
? the output message as a coded multiple parameter. 
7 i FORMAL PARAMETERS: 
SEM_TABLE Parameter semantic table entry address. 
BUF BSC Output message buffer descriptor. 
MSGSIZE Address of current output message size. 
DUMDSC Not used. 


i IMPLICIT INPUTS: 


VPwnN— 


on 


! IMPLICIT OUTPUTS: 
Parameter is added to output message buffer. 


i ROUTINE VALUE: 
i COMPLETION CODES: 


Always returns success (NMLS$_STS_SUC). 
i SIDE EFFECTS: 


wr 


SDOOGVOCOOCOOCSOOO0O000O0O000O0MMmocccoCDCDCDCO~ 


OONAUES WN OOD NOAU EWN $09 ODNAUE WN OOO NOUS WO” 


! 
1 
! 
! 
1 
! 
i] 
i 
! 
1 
' 
! 
It is assumed that the permanent data base file is already open. 
! 
' 
1 
! 
i 
' 
! 
! 
! 
! 
! 
' 
1 
' 


Ooooeoceoo 
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09 NONE 
10 
11 leo 
ig 1 
1 1 BEGIN 
14 1 
15 1 MAP 
1¢ : SEM_TABLE : REF BBLOCK; 
18 21 LOCAL 
19 21 BUFFER : VECTOR (6, BYTE], 
$9 $i PTR; 
33 220 PTR = CHSPTR (BUFFER); ! Get pointer to output buffer 
54 23 ; 
$2 § : Add version numbers preceded by data type. 
27 5 CHSWCHAR_A (1, PTR); 
28 6 CHSWCHAR-A (NMLSK VERSION, PTR); 
+4 CHSWCHAR_A (1, PTR); 
8 CHSWCHAR-A (NMLSK_DEC_ECO, PTR); 
31 9 CHSWCHAR-A (1, PTR); 
3 0 CHSWCHAR-A (NMLSK_USER_ECO, PTR); 
34 2 ! 


d 3 


NMLSLISPRM NML_ special peraneter handling routines 16°S Hatt 90:16:38 AX-11 Bliss-32 V4.0-7 Page 6 
v04 NMLSLISNMLVER Get NML version number 14-Sep-1984 12:50:0 NML.SRCINMLLISPRM. 835; (3) 
3 5 8 ? } Add coded multiple version parameter to message. 

: f 9 5 2 _NMLSADDMSGPRM (. RCS 

: 239 0539 -SEM_TABLE CPST$W_DATA 

; gh0 9 8 .SEM-TABLE CPST$B “PAT AT PE OR 3, 

; 24g 0240 BUFFER); 

: 26 0241 

5 44 0 ¢ 2 RETURN NML$_STS_SUC 
: 245 0243 2 
: 46 0244 1 END; ! End of NMLSLISNMLVER 


-TITLE NMLSLISPRM NML special parameter handling routi | 
-IDENT \V04-000\ | 
-PSECT S$PLITS,NOWRT,NOEXE,2 


.LONG 256 : | 

.ADDRESS NMLS$T_PRMBUFFER ; | 

-PSECT SOWNS,NOEXE,2 | 

00000 NML$T_PRMBUFFER: | 
.BLKB. 256 

00100 NML$T ~ENTBUFFER: "i 

| 

00140 NML$Q_ENTBFDSC: 

-BLKB. 8 

| 

| 


NML$Q_PRMDSC= 
EXTRN NMLSGA. EV TSRCTYP 


TEXTRN NMLS$GQ-EVTSRCDSC 
“EXTRN NMLSGWTEVTCLASS 
NML$GB~EVTMSKTYP 


qiitiL$G0_ENTSTROSC 


TRN LSAB-NML_NMV, NMLSAB_PRMSEM 


NMLSLISNMLVER Get NML version number > NAL SRCINMLLISPRM.B32;1 (3). 


-EXTRN NMLSAB_RECBUF, NMLSAL_ENTINF TAB 
+ EXTRN NAL SAL” pan INFT 


way, 9h J FPR NML_ special peraneter handling routines 16-Sep-1984 90:16:36 AX-11 Bliss-32 v4.0- ie Page 7. 


x NML$GB-INFO, NML$GB_OPTIONS 
XTRN NAL SGL PRncODeN NMLSGL_PRS_FLGS 


X GL- 

XTRN NML$GQ =NETRARDSC 

XTRN NML$GQ-RECBFDSC 

XTRN NML$GW-PRMDESCNT 

EXTRN NML$_RECBFOVF, NML$_RECDELET 
EXTRN wil SGW PERM_EXEC_ADBR 
EXTRN wit $68 _N P_VERSI 
EXTRN NML$ OPERA EXEC_NAME_DSC 
EXTRN Nat $ca7P OPRVMSK 
EXTRN NMA$ SeECETEFLDY NMASINSERTFLD 
EXTRN WNMASMATCHREC, NMASSEARCHFLD 
EXTRN NAL SADDASGPRA. NMLSBLD_REPLY 
EXTRN WNMLSDELETE_NODE REC 
-EXTRN NMLSGE iets RMLSGE TNODNAM 


GE 
-EXTRN NMLSREAD_LOOPNODE 
“EXTRN NMESREADRECORD. NMLSSEND 


-PSECT SCODES,NOWRT,2 


0000 00000 ENTRY on. 91 ISH. VER. Save nothing ; 0177 
5E 08 C2 90002 SUBL2 #8 ; 
50 6E 9E 00005 MOVAB BUFFER. PTR : 0220 
80 00010401 8F DO 00008 MOVL #66561. (PTR)+ > 0225 
80 01 BC OO00F MOV) #1, (PTR)+ : 0229 
5E Dd» 00012 PUSHL SP : 0235 
06 5D 00014 PUSHL ; 
50 04 AC DO 00016 OVL sen TABLE, RO : 0238 
51 03 AO 9A OOO1A MOVZBL 0), RI ; 
7E 51 03 C9 0001 ISL 3, Ri, -(SP) : 
7E 60 3¢ 0002 MOVZWL (RO), =(SP) : 0237 
7E 08 aC 7D 000 MOVO  BUFDSC, -<(SP) > 0235 
000000006 00 06 FB 00029 CALLS #6, NMLSADDMSGPRM ; 
50 01 BO 000 0 MOVL #1. RO : 0242 
4 000 RET + 0244 


; Routine Size: 52 bytes, Routine Base: S$CODE$ + 0000 
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NML_ special parameter handling routines 16-Sep-1984 00:16:5 AX-11 Bliss-32 V4.0-74 Page 8 NAL 
NMLSL SLOONAM Get loop node Rone 12280 8-1 382 99:38:38 NML .SRCINMLLISPRM.B32; . (4) v0é 
> 248 45 1 ZSBTTL "NMLSLISLOONAM Get Loop node name’ 
: 4 re ! GLOBAL ROUTINE NMLSLISLOONAM (SEM_LIST, BUFDSC, MSGSIZE, DATDSC)= 
S 6g) 6 48 1 !+44 
3 25 8 $2 | FUNCTIONAL DESCRIPTION: 
3 See 8 2) } This routine returns the loopback node name for a Line. 
: $28 8 38 : FORMAL PARAMETERS: 
; $24 0255 1! SEM_LIST Parameter semantic table entry address. 
: $22 0 2$ 1! BUF BSC Output message buffer descriptor address. 
: 260 0257 1! MSGSIZE Address of current output message size. 
3 $e o¢28 : } DATDSC Data buffer descriptor address. 
; see 0260 1 ! IMPLICIT INPUTS: 
> 264 0261 1! 
; 265 aseg 1! It is assumed that the permanent data base file is already open. 
> 266 0263 1! 
; 267 0264 1 ! ROUTINE VALUE: 
; 268 0265 1 ! COMPLETION CODES: 
: 269 0266 1! 
: 270 0267 1! Always returns success (NML$_STS_SUC). 
; 271 0268 1! 
; gta 0269 1 ! SIDE EFFECTS: 
: 273 0270 1! 
3; 274 0271 1! NONE 3 4 
B ae 0272 1! 
: 276 0273 1 !-- 
s ger 0274 1 
; 278 0275 2 BEGIN 
; e79 0276 2 
: 280 0277 2 MAP 
; ey 0278 2 sem_list : REF BBLOCK; 
; 282 0279 2 
; 283 0280 2 LOCAL 
; 284 geet 2 circuit_dsc : VECTOR (2), 
: 285 sB6 2 node_dsc : VECTOR 
; 286 0283 2 node_rec_buf: BBLOCK nm($k_recbflen), ! Buffer for node data 
3; 287 0284 § node_rec_dsc: VECTOR (2), ! Descriptor of node data buffer 
>; 288 0285 node_rec_data:VECTOR (2J], ' Descriptor of data in node 
: 289 0286 : data buffer. 
; 290 0287 status; | 
; $3! bSe5 
; 29 0289 | 
; 29 $344 : 
: 296 0291 ! Get the circuit ID from the circuit's permanent database record. 
: 595 0292 2! If this fails, it's a bug. | 
: 296 bS3 ! 
; oy 0294 circuit_dsc (0) = 0; 
: 298 BS32 circuit_dsc (1) = 0; 
; 299 39 IF NOT nma$searchfld (.datdsc, 
: 300 029 nml$c_key_cir 
: 301 0298 circuit_dsc 6} 
: 30 0 99 circuit~dsc £13$ THEN | 
s; 30 00 RETURN nml$ sts_mpr: 
: 504 0301 node_rec_dsc (OJ = fml$k_recbflen; | 
| 


NMLSLISPRM 
v04 NMLSL1SLOON. 
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node_rec_dsc [1] 


3 
16-Sep-1984 16:5 AX-11 Bliss-32 V 
18-Sep-1984 00:16:56 YAXe11 aisso¥2 y 


node_rec_buf; 


node_rec_data C1] = nodé_rect_buf; 


i Call routine to read through the known loopnodes in the node permanent 
database, looking for loopnode on the circuit being Listed. 


if nml$read_loopnode (circuit_dsc, 


node_rec_dsc, 
node_rec_data) THEN 


; 305 ' o¢ 
: 309 i 
; 308 0305 
; 309 i) BS 
; 5310 030 
s 311 0308 
3 \¢ 0309 
; OY 0310 
: 14 0311 BEGIN 
s 3139 0 \§ node_dsc = 0; 
3 316 031 node_dsc [1] = 0; 
S Be 0314 IF nma$searchfid (node_rec_data, 
; 2S 0315 nma$c_pcno_nna, 
3; 319 0316 node_dsc ; 
: 320 0317 node-dsc £1]5 THEN 
; 321 0318 nml$addmsgprm (.bufdsc, 
: $56 0319 ; -msgsize, 
: ie 0320 -sem_list Cost$w_dataid], 
; 324 0321 3 -sem_list getee_cotatyped, 
3 Seo Bes¢ 3 -node_dsc (0J 
; 326 0323 3 -node_dsc (15; 
: 327 0324 2 ; 
; 328 0325 2 RETURN nml$_sts_suc 
3 Sev 0326 1 END; ! End of NML$LISLOONAM 
0004 00000 ENTRY NMLSLISLOONAM, Save R2 
52 000000006 00 9€E 00002 MOVAB NMASSEARCHFLD, 
5E FBEO CE 9€ 00009 MOVAB <-1056(SP), SP 
F8 AD 7C OOO0E CLRQ  —- CIRCUIT_DSC 
FC AD 9F 00011 PUSHAB CIRCUIT_DSC+4 
F8 AD 9F 00014 PUSHAB CIRCUIT_DSC 
7E 04 CE 00017 MNEGL 4, -(SP) 
10 AC OD QOOTA PUSHL  DATDSC 
62 04 FB 0001D CALLS #4, NMASSEARCHFLD 
04 50 €8 000 " BLBS RO, 1$ 
50 0A CE 000 MNEGL #10, RO 
4 000 8 RET 
08 AE 0400 + 8F C 00027 1$: MOVZWL #1024, NODE _REC_DSC 
OC AE 16 AE 9E 000 MOVAB NODE_REC_BUF, NODE_REC_ 
04 AE 1 AE 9E 000 Vv NODE_REC_BUF, NODE_REC_ 
5E 0D 000 PUSHL S§S 
OC AE 9F 00039 PUSHAB NODE _REC_DSC 
F8 ag 9F 0003C PUSHAB cIRCOLT BSC 
000000006 99 43 88 F CALLS #3, NMLSREAD_LOOPNODE 
1 0 3 94 BLBC RO 
FO AD 7C 0004 CLRQ = NODE_DSC 
F4 AD 9F OO004C PUSHAB NODE_DSC+4 
FO OAD OF O04F PUSHAB NODE C 
7E O1F4 = BF C B25 MOVZWL #500, -(SP) 
OC AE 9F 88 PUSHAB NODE_REC_DATA 
62 4 43 A CALLS #4, RMASSEARCHFLD 
1A 0 €9 0005D BLBC RO, 2$ 
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Vo=bUB” = NMLSLESEOGNAR’” Get Coop node Rane ise 2p-198e 19:56:08 ENML-SRCINALLISPRM= 83279 tog 


FO AD 7? 0 mova NODE DSC, ={SP) ; 
Q4 A 8 4 Matt ; $334 

3 Ad 9A 8 novel FRO ues : 
08 ac 7b oOber mova’ RO}. CSE, : 0398 

000000006 i 06 FB 4 CALLS oo, NMLSADDMSGPRM : 
1 She pe ae 98 


; Routine Size: 126 bytes, Routine Base: S$CODE$ + 0034 
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Get host node 
ZSBTTL ‘NMLSLISNODEID Get host node id' 
GLOBAL ROUTINE NMLSLISNODEID (SEM_LIST, BUFDSC, MSGSIZE, DATOSC)= 
i FUNCTIONAL DESCRIPTION: 

This routine gets the host node identification string. 
FORMAL PARAMETERS: 


SEM_LIST Parameter semantic table entry address. 

Output message buffer descriptor address. 
MSGSIZE Address of current output message size. 
DATDSC Data buffer descriptor address. 


IMPLICIT INPUTS: 

It is assumed that the permanent data base file is already open. 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 
SIDE EFFECTS: 
NONE 


BEGIN 
P 
sem_list : REF BBLOCK; 


tmpbuffer : BBLOCK (6); 
tmpdsc = UPLIT (6, tmpbuffer) : DESCRIPTOR; 


LOCAL 

cm_count, 

fldadr, 

fldsize, 

length, 

namdsc : DESCRIPTOR, 
hostadr : WORD, 

ptr 

resien;: 


fldadr = 0; 
if NOT nma$searchfld (.datdsc, 


p-198¢ 12:50:08 ENML-SRCINALLTSPRN- B32; 
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NMLSLISNODEID Get host node 14-Sep-19 NAL .SRCINMLLISPRM.B32: | 
0384 .sem_list Cost$w_dataid], 
5 fldsize, 
8 fldadr) THEN 
ti RETURN rml$_sts_pty; 
p 34 ptr = nml$t_prmbuf fer; 
0391 ! Get the maximum number of fields in the coded multiple: 1 (node address 
8 35 only) or 2 (node address and node name). 
0395 cm_count = .sem_list Cpst$b_datatype] AND NOT nma$m_pty_cmu; 
6 38 hostadr = .(.fldadr)<0,16>; 
039 : : 
0398 ! Add node address field. 
0399 ! 
oe 4 CHSWCHAR_A (2, ptr); 
040 ! If the NCP I'm talking to is speaking NICE V3.0.0 or less, clear the 
oh area number from node numbers in the executor's area. 
0405 IF CHSRCHAR (nml$gb_ncp_version) LEQ 3 THEN 
0406 BEGIN 
0407 
Reps hostadr : BBLOCK (2); 
0410 : IF .hostadr Cnma$v_area) EQL .nml$gw_perm_exec_addr [Cnma$v_area] THEN 
0411 3 hostadr Cnma$v_area] = 0; 
Bole 2 ND; 
0413 2 
0414 2 esr = CHSMOVE (2, hostadr, .ptr); 
0415 F .cm_count EQL 2 THEN 
0416 BEGIN 
0417 nml$getnodnam (.hostadr, tmpdsc, reslen); 
0418 namdsc pgsceu..congthe = .reslen; 
ahh 3 namdsc dsc$a_pointer] = tmpbuffer; 
rh} : } Add node name field if the Length is not zero. 
6658 : IF .namdsc Cdsc$w_length] NEQU 0 THEN 
bese 4 BEGIN 
0425 4 CHSWCHAR_A panatn, pty asc, ptr); 
0426 4 CHSWCHAR-A (.namdSc [dsc$w_length], gtr); 
oe 7 4 ptr = CHSMOVE (.namdsc Cdsc$w_lengthJ, 
428 4 enamdsc Cdsc$a_pointer], 
0429 4 -ptr); 
0430 4 END 
ott ELS 
04 cm_count = 1; 
043 END; 
0434 
0435 length = .ptr - nml$t_prmbuf fer; 
04 § nmlSaddmsgprm (.bufdsc, 
3 -msgsize, ‘ 
438 -sem_list Cpst$w_dataid], 
0439 nma$m pty_cmu OR” .cm_count, 
0440 . length, 


S3 


3 
SLISPR - - - 
VOs-000 =—NMLSLESNODEID. Get host node tae "es 10=350-1984 12:50:08 ENMLLSRCINALLTSPKM:B3e+1 te 


: ree 44) ; nm \$t_prmbuf fer); 
: 44 rk — nml$_sts_suc 
: 448 444 1 END; ! Eng of NMLSLISNODEID 
«PSECT $PLITS,NOWRT,NOEXE,2 
90000006 00008 P.AAB: .LONG 6 | ; 
0000000" 0000C¢ “ADDRESS TMPBUFFER : 
.PSECT SOWNS,NOEXE,2 
00148 TMPBUFFER: 
.BLKB 6 
TMPDSC= P.AAB 
.PSECT SCODES$,NOWRT,2 
01FC 00000 .ENTRY NMLSLISNODEID, Save R2,R3,R4,R5,R6,R7.R8B  ; 0328 
58 00000000' 00 9E 00002 MOVAB NMLST_PRMBUFFER, RB ; 
SE 10 C2 00009 SUBL2 P : 
7E 04 0000C CLRL —FLDADR > 0381 
5E DD 0000 PUSHL SP : 0383 
08 AE OF 00016 PUSHAB FLDSIZE ; 
56 04 AC DO 0001 MOVL sen LIST, R6 + 0384 
7E 66 3C 00017 MOVZWL -(§P) F 
10 AC DD OOO1A PUSHL DA 4 C : 0383 
000000006 00 4 FB 0001D CALLS #4, NMASSEARCHFLD ; 
04 0 £8 00024 BLBS = RO. 1$ : 
50 0c cE 00 i MNEGL #12, RO ; 0387 
53 68 9E $0058 1$: MOVAB NMLST_PRMBUFFER, PTR : 0389 
57 03 Ab 06 00 EF O00¢E EXTZV #0, #8, 3(R6), CM_COUNT > 0394 3: 
50 00 BE 80 000 MOVW § @FLDADR, HOSTADR : 0396 
83 0 90 00038 MOVB #2, (PTR)+ : 0400 
03 000000006 71 03 CPB NML$GB_NCP_VERSION, #3 ; 0405 
51 000000006 00 06 02 EF 00044 EXTZV #2, #6, NMLS$GW_PERM_EXEC_ADDR+1, R1 + 0410 
51 50 06 A FD o038 CMPZV #10, #6, HOSTADR, RT ; 
50 FCOO «BF OA 09 B1Cw2 $84512 HOSTADR > 0411 
83 9 BO 00059 2s: MOVW HOSTADR, (PTR)+ + 0414 
02 D1 0005c CMPL CM COUNT, ne > 0415 
5 12 0005F BNEO 4$ F 
08 AE 9F 00061 PUSHAB RESLEN > 0417 
00000000' 3 0 PUSHAB ; 
43 C A MOVZWL HOSTADR, -(SP) F 
000000006 0 FS $0 CALLS #3, NML$GETNODNAM ; 
OC AE 0 AF 4 MOV RESL EN, NAMDS + 0418 
10 Ar 0148 CB 9E 00079 MOV MPBUFFER NAMDSC+4 ; 0419 
5 0c AE 7F MOVZWL NARDSC, rb 3 0423 
83 40 8F 9 HH MOVB #64, (PTR)+ > 0425 


53 
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NMLSLISNODEID Get host node 


Wno —— 


83 5 00 MOVB R , (PTR 3 0426 
63 10 BE MOVC3 * SNARDSC#S, (PTR) + 0429 
6 BRB + 0423 
57 j pO 93 3$: MOVL #i, : 04 2 
: 8 5 3% 4$: MOV nmi ss TPRRGUT FER. RO + 043 
50 5 C3 000 SUBL3 RO, PTR, LENGTH : 
0101 BF 88 09 PUSHR #*M<RO 85 + 0440 
7E 57 000000C0 = BF Al BISL3 #92, cH COUNT, -(SP) + 0439 
E 66 C BKar MOVZWL ; 0438 
7E 08 AC 7D O00AC ova surge, 4 + 0436 
000000006 00 06 FB 00080 CALLS #6, NMCSADDMSGPRM : 
50 01 00 00087 MOVL #1. RO + 0443 
04 OOOBA RET + 0444 


; Routine Size: 187 bytes, Routine Base: S$CODE$S + 00B2 


m 3 
VOU=hO) = NALSLESPARAN™ Get parameter" “Urines 1e-Sep- 1986 12:50:08 ENML-SREINALL I SPRM-B32/ 1 ae 


IF NMASSEARCHFLD (.DATDSC 
“SEM_LIST CPSTSW_DATAID), 
FLOSIZE 


FLDADR) 


BEGIN 
DATATYPE = .SEM_LIST CPSTSB_DATATYPE); 


i If the parameter is not an ASCII or hex image field, the Length 
goes in the datatype byte. Add it here. 


: 450 445 1 XSBTITL 'NMLSLISPARAM Get parameter’ 

: : 1 148 i GLOBAL ROUTINE NMLSLISPARAM (SEM_LIST, BUFDSC, MSGSIZE, DATDSC)= 
; 4 “ 448 1 S44 

> 454 449 1 ! FUNCTIONAL DESCRIPTION: 

; 455 450 1! 

3 $28 451 1! This routine returns a parameter. 

: 45 Be eg 1! 

> 458 Bee 1 ! FORMAL PARAMETERS: 

; 459 454 1! 

; 460 0455 1! SEM_LIST Parameter semantic table entry address. 
; 461 bees ee Output message buffer descriptor address. 
: 186 457 1! MSGSIZE Address of current output message size. 
: 46 0458 1! DATDSC Q10 buffer descriptor address. 

> 464 0459 1! 

; 465 0460 1 ! IMPLICIT INPUTS: 

; 466 0461 1! 

3 ro 24 pres ! It is assumed that the permanent data base file is already open. 
; 469 0464 1 ! IMPLICIT OUTPUTS: 

: 470 0465 1! 

; rie Bee8 ' } The output message buffer contains the coded multiple version number. 
; 47 0468 1 ! ROUTINE VALUE: 

> 474 0469 1 ! COMPLETION CODES: 

> 475 0470 1! 

; 476 0471 1! Always returns success (NML$_STS_SUC). 

: 477 0472 1! 

; 478 0475 1 ! SIDE EFFECTS: 

: 479 0474 1! 

, § 0475 1! NONE 

: 4481 0476 1! 

: 482 0477 1 !-- 

> 483 0478 1 

> 484 0479 BEGIN 

> 485 0480 

: 4 0481 MAP 

: 487 Ree SEM_LIST : REF BBLOCK; 

; 489 0484 LOCAL 

: 490 0485 DATATYPE : BBLOCK (1), ! NICE parameter data type. 

: 491 04 FLDADR 

: 49 0487 FLDSIZE; 

; 49 488 

> 494 489 FLDADR = 0; 


v04- NMLSLISPARAM Get parameter NML.SRCIJNMLLISPRM.B32; (6) 


07 50 IF er. erie iia Wim ety ASCJ)_ AND 
(DAT YP] NEQ NMASC_PTY_HI) THEN 

DATA Ay PE = DATATYPE” aR »FLDSIZE; 
NMLSADDMSGPRM (.BUFDSC, 

0 

Q 

0 

6 


MSG 
“SEN LIST CPST$W_DATAID], 
PLDSIZES” 
“FLDADR): 
END; 


RETURN NML$_STS_SUC 
END; 


Sete te Ge Se Se Ge Ge Sete ee Sees 
PUP PVP SPVSPVSSISISISISIVIT 
DWONAULS WOOO 
FUN "OOOO 


! End of NMLSLISPARAM 


0004 00000 .ENTRY NMLSLISPARAM, Save R2 : 0446 
5E 04 C2 0000 SUBL2 #4, ; 
7E D4 0000 CLRL  FLDADR + 0489 
SE DD 00007 PUSHL SP > 0491 
08 AE 9F 00009 PUSHAB FLDSIZE : 
52 04 AC pO 0000¢ OVL SEM_LIST, R2 + 0492 
7E 62 3C 00010 MOVZWL (R23, -(§ : 
10 AC DD 00013 L DATDSC + 0491 
000000006 00 04 FB 00016 CALLS #4, NMASSEARCHFLD : 
29 50 €9 00010 BLBC =. RO, 2S ; 
50 03 A2 90 00020 MOVB 3(R2), DATATYPE : 0497 
0B 50 06 £0 90084 BS #6, DATATYPE, 1$ : 0502 
20 50 OF 00 ED 00028 CMPZV #0. #15, DATATYPE, #32 : 0503 
04 1 00 D EQL=Sésé18 ; 
50 04 AE 88 0002F BISB2 FLDSIZE, DATATYPE + 0504 
6E DD 00033 1$: PUSHL FLDADR : 0510 
08 AE dD 90035 PUSHL FLDSIZE : 0509 
7E 50 9A 00038 MOVZBL DATATYPE, -(SP) : 0508 
7E 62 3¢ 00038 MOVZWL (R2), -(SP) : 0507 
7E 08 AC 7D 0003 MOVO  BUFDSC, -(SP) : 0505 
000000006 00 06 FB 9004 CALLS #6, NMLSADDMSGPRM ; 
50 01 DO 00049 2s: MOVL #1. RO + 0513 
04 0004C¢ RET > 0514 


; Routine Size: 77 bytes, Routine Base: S$CODE$ + 016D 
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16-Sep-1984 00:16:5 AX-11 Bliss-32 V4.0-74 
NMLSLISPASSWORD Get parameter aR eet 1 99:38:08 NAL SREINAL LE SPAN O30¢4 
ZSBTTL "NMLSLISPASSWORD Get parameter’ 


GLOBAL ROUTINE NMLSLISPASSWORD (SEM_LIST, BUFDSC, MSGSIZE, DATDSC)= 
' 


144 
' FUNCTIONAL DESCRIPTION: 


This routine adds a Reqewere arameter to the output message if 
the user has the BYPASS privilege. 


FORMAL PARAMETERS: 
SEM_LIST Parameter semantic table entry address. 


BUF DSC Output message buffer descriptor address. 
MSGSIZE Address of current output message size. 
DATDSC Address of data buffer descriptor. 


IMPLICIT INPUTS: 

It is assumed that the permanent data base file is already open. 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 
SIDE EFFECTS: 
NONE 


BEE EEE EAA inononononononononun 2 2 2 


WN = 9 ODONAUES WN $9 OONA UE WIN O OONOAU EWN OOODNAUS WN OOOAIOUW 


BEGIN 


Es 


MAP 
SEM_LIST : REF BBLOCK; 


BIND 
STRDSC = SASCID (‘no access rights’) : DESCRIPTOR; 


LOCAL 
FLDADR 
FLDSI2Zé; 

1 NOT .NML$GQ_PROPRVMSK CPRV$V_BYPASS] 
BEGIN 


! User does not have BYPASS privilege so return string to indicate that 


@ password is set if one is found. 


i ee ee ee ee ee eee eee ee rr ww fon fa ln alo lololo lalallala lololololololololololololo) 
VPP PV PUPP PV PVPS PVIV SVU IVUSUSV SUSI SUSVSUSUSV SUSI USUSV SUSI SSIS ISIS ISIS 
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FLDADR = 0; 
IF NMASSEARCHFLD (.DATDSC, 


Welvel sl sltelvsl selves l sl el sl sl asl slvaltel al sl selva ls ita! 


1b-sep-19 4 


tay SLL RPRA NML ppesies arameter handling routines 

v04-000 NMLSLISPASSWORD Get parameter 14-Sep-1984 
: 578 57 .SEM_LIST CPST$W_DATAIDI, 
Bo BEY ftberge) 671 

; 28) ba58 i THEN EGIN 

; $88 0377 d NMLSADDMSGPRM (.BUFDSC 

: 585 0579 4 “MSGS1ZE 

: 586 0580 4 -SEM_LIST FPST$W_DATAID 
: 587 0581 4 -SEM"LIST CPST$B-DATATYPED, 
; 259 b386 4 “sinoee titre ete 
BPG og Ge pee per Ca 
; 396 0586 4 at Rn 

: 59 0587 3 END: 

3; 594 0588 END; 

: 382 b860 5 i call th l 

: 397 0891 a e norma parameter routine. 

: 598 0998 NMLS$LISPARAM (.SEM_LIST, 

: 599 059 BUF BSC 

: 600 0594 “MSGSIZE, 

: 601 0595 -DATDSC): 

: 602 0596 

: 603 0597 2 RETURN NML$_STS_SUC 

; 604 0598 1 END; 


12:58:08 ERMC SRCINALLISPHN: 83211 


! End of NMLSLISPASSWORD 


»PSECT SPLITS,NOWRT,NOEXE,2 


74 68 67 69 72 20 73 73 65 63 63 61 20 6F $f 60910 P.AAD ASCII \no access rights\ 
00000010 00020 P.AAC: .LONG 16 
00000000" 00024 “ADDRESS P.AAD 
STRDSC= P.AAC 
.PSECT $SCODES,NOWRT,2 
‘ 0004 90009 gENTRY NL SL ISPASSWORD, Save R2 
3¢ 000000006 36 88 E $O08 BBS Ag NML$GQ_PROPRVMSK+3, 1$ 
6— D4 00000 CLRL = FLDADR 
SE DD O00F PUSHL SP 
08 AE 9F 00011 PUSHAB FLDSIZE 
52 04 AC 00 00014 MOVL SEM_LIST, R2 
7E 62 3¢ 00018 MOV2WL (R23, -(SP) 
10 AC DD 00018 PUSHL  DATDSC 
020000006 90 4 F 1 CALLS #4, NMASSEARCHFLD 
1 O€ BLBC =s_«RO._ «18 
90000 * 00 DD PUSHL  STRDSC+4 
7E 00000000° C E MOVZWL STROSC, -(SP) 
7E A MOVZBL 3(R2), =(SP) 
7E 62 3C 00039 V2WL (R2), =(SP) 
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7 08 ac 7D 3 MOVQ BUFDSC, -(SP) : 

000000006 of 06 re 3 CALLS i, NMLSADDMSGPRM : 

7E 0c AC 7D 00049 1$: MOVQ MSGSIZE, -(SP) : 0594 

7E 06 ac 7D 90040 MOV SEM_LIST, -(SP) : 

FFSD OCF 04 FB 60051 CALLS #4, NMLS$LISPARAM : 

50 01 DO 00056 2s: MOVL #1, RO : 

04 00059 RET : 


; Routine Size: 90 bytes, Routine Base: S$CODE$ + O1BA 


oo oO oOo 
33 323 3 
On MLW O&O 
ED SER ss ee ee ae, ee A ee ee Eee I ee ee ee eee ES IE TO NL ID EA 
De Oe Se Oe Oe Oe Se Se Se Se Se Se Se Breese sete Beeston $3 
Ok th at ot dd td SF 
a i, i, en, in, i, en, i, i, i, ln, a, I, en, en, en, L,I, en, I, el, 


& 
ORME LACHER cna gasteoe eyo ABIES WD 


3 $86 599 1 XSBTTL ‘NMLSLISPWSET List password set’ 

: pet ret ! GLOBAL ROUTINE NMLSLISPWSET (SEM_LIST, BUFDSC, MSGSIZE, DATDSC)= 
; 609 $60 1 le4 

; ei9 eit } } FUNCTIONAL DESCRIPTION: 

3 ois 0605 1! This routine is called while processing a LIST X25=S or X29-S DEST 
; 61 Bo08 1! command. If a password is set, it adds a password set indicator to 
> 614 0607 1! the NICE response message. 

; 619 0608 1! 

; 616 0609 1 ! FORMAL PARAMETERS: 

; 617 0610 1! 

; 618 0611 1! SEM_LIST Parameter semantic table entry address. 
; 619 bei§ ee BUF BSC Output message buffer descriptor address. 
: 620 0613 1! MSGSIZE Address of current output message size. 
3 ° 1 Bele : DATDSC Address of data buffer descriptor. 

; 6 4 0616 1 ! IMPLICIT INPUTS: 

: 624 0617 1! 

; 625 0618 1 ! IMPLICIT OUTPUTS: 

> 626 0619 1! 

3; Ger 0620 1 ! ROUTINE VALUE: 

; 628 0621 1 ! COMPLETION CODES: 

; 668 bess 1! 

; 630 06 1 ! SIDE EFFECTS: 

; 631 pose 1! 

; 632 0625 1 !-- 

; 633 0626 1 

> 634 +434 2 BEGIN 

; 635 0628 § 

; 636 944 Pp 

; 637 0630 2 SEM_LIST : REF BBLOCK; 

; 638 0631 

; 639 063 LOCAL 

A 063 FLDSIZE, 

; 641 0634 FLDADR; 

; 64 0635 

; 64 0636 IF NMASSEARCHFLD (.DATDSC, 

: 644 0637 -SEM_LIST CPST$W_DATAID), 

> 645 0638 FLDSTZE, 

; 646 0639 FLDADR) THEN 

3; 647 0640 BEGIN 

; 648 0641 : 

; 649 ak) : Add password to message with a value of 0. This indicates simply that 
3 oay nett , the password is defined, without actually returning the password. 
; $36 0645 NMLSADDMSGPRM (.BUFDSC 

; 6) 0646 -MSGS1Z 

> 654 0647 “SEM_LIST CPSTSW_DATAID], 

3 635 0648 Ve 

3 O38 649 1 

> 65 650 UPLIT (0)); 

; 658 51 END; 

; 659 26 RETURN NML$_STS_SUC 

; 660 5 END; ! end of NMLSLISPWSET 


og 
NML.SRCINMLLISPRM 


V4.0-74 
-B32; 
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PWSET List password set 


«PSECT 
00000000 00028 P.AAE: .LONG 


o 
o 


OV MNNWO OC OMMOWOUTIOO 


5E 
08 
7E 04 
10 
000000006 08 
00000000' 
7E 04 
7E 08 
000000006 9° 


SCOOPrWOOdDuU°lrPWPruN1o 
AO —OOLOOMMNEa 


1$: 


SFowmonvo7 ODIO "ONO 
SOOOoOoCOoooooooooo°oo 
COOQOoQooooooooooooo 
foe lo lolololelolololelelololol~) 
WWPoPononn ] ] ~CDoOOo0o0o 
NSO OVW DORM > SITIO 


; Routine Size: 56 bytes, Routine Base: S$CODE$ + 0214 


NML.SRCJNMLLISPRM.B32; 1 


SPLITS,NOWRT ,NOEXE ,2 
0 


SCODES,NOWRT,2 
NMLSLISPWSET, Save nothing 
#8, SP 


SP 
FLDOSIZE 
@SEM_LIST, =(SP) 


#4, NMASSEARCHFLD 
0, 1$ 


P.AAE 
#1 


#1 

@SEM LIST, =(SP) 
BUFDSC, =(SP) 

#6, NMLSADDMSGPRM 
#1, RO 


0600 
0636 
0637 
0636 
0650 
0645 


0647 
0645 


0652 
0653 


ane et bd a te ts 9 


4 
NALSLISPRM NML_ special parameter handling routines 1bese -1984 16:5 AX-11 Bliss-32 V4.0-742 Pa 2 
OL ebb NMLSLUSRANGE™ List range paraneter 12-300- 1382 90:18:38 NAL SREINACL 1 SPRM B30 4 - (8 


; 669 9656 1 ZSBTTL "NMLSLISRANGE List range arameter' | 3 
; oo7 tH : GLOBAL ROUTINE NMLSLISRANGE (SEM_LIST, BUFDSC, MSGSIZE, DATDSC)= : } 
; 665 0657 1 !++ | Se 
: 6 0658 1 ! FUNCTIONAL DESCRIPTION: 3 7 
; 66 0659 1 i | 33 
3 668 0660 1! This routine is called to List X25 and X29 Destination subaddresses | ; 1 
>; 669 0661 1! and X25 DTE channels. The destination's subaddresses can be more : 1] 
; 670 0662 1! than one range pair, in which case the field length in the permanent : 1 
; 671 0665 1! database is the number of range pairs times 4 (i.e. then Length in 3] 
; 67 0664 1! bytes). 3} 
s Or 665 1! 3 7 
; 674 666 1 ! FORMAL PARAMETERS: 3 7 
; 675 0667 1! 37 
: 676 0668 1! SEM_LIST Parameter semantic table entry address. : 1 
; 677 0669 1! BUF BSC Output message buffer descriptor address. : 1 
; 678 0670 1! MSGSIZE Address of current output message size. : 1 
: 679 O67) | DATDSC Address of data buffer descriptor. : : 
; 681 0673 1 !-- 3 7 
; 682 0674 1 37 
; 683 0675 2 BEGIN 3 7 
3 0676 § 3 7 
; 685 0677 Pp 3 1 
; 0678 § SEM_LIST : REF BBLOCK; 3 7 
; 687 0679 3 7 
; 688 0680 2 LOCAL sv 
: 689 0681 2 FLDADR 3; 1 
; 0682 2 FLDSIZE 77 
: 691 068 CM_COUNT, 31 
; 692 0684 LENGTH, 3 3 
; 693 0685 PTR 77 
: 69% 0686 RANGE_BEGIN, 37 
: 695 0687 RANGE 3 3; 1 
; 696 0688 3 7 
; 697 0689 FLDADR = 0; 3; 7 
: 698 0690 § 3} 
; 699 0691 2 IF NMASSEARCHFLD (.DATDSC :] 
; 700 0692 2 -SEM_LIST CPSTSW_DATAID], 31 
; 701 069 FL e 3.4 
: 702 069 FLDADR) THEN : 3 
; 703 0695 BEGIN 3:7 
; 704 0696 : 3 7 
3; TOS 0697 ! For as many range pairs as are set, add them to the NICE response message 3 7 
; 706 0698 ! in the form: Parameter ID, Coded multiple data type, word data type, 37 
; 70? 0699 : range begin, word data type, range end. : : 
; 709 0701 WHILE .FLDSIZE GTR O DO 37 
3; 710 6788 4 BEGIN 3 7% 
s ii 703 4 PTR = NMLST_PRMBUFFER; ee 
; ar; 704 4 CM_COUNT = T; 37 
: 71 705 4 3; 
: 714 706 4 CHSWCHAR_A (2, PTR); | 33 
¢ 013 ror PTR = CHSMOVE (2, (.FLDADR) <0,16>, PTR); | : 
: a9 709 4 ' If the range begin = range end, don't include range end. | 37 
; 718 0710 4 ! 3 7 


sie aa 


NMLSL 


; 719 711 4 

; 720 at 5 

s 21 71 

. £ ; 7146 

, £ 0715 

3; 726 orig 4 

3s 29 0717 4&4 

; 726 0718 4 

3; 727 0719 4 

; 728 0720 4 

; 729 0721 4 

“Ses 07 ¢ 4 

3 3 07 4 

; reg 0724 4 

ee e u725 4 

3 734 o7ss 4 

; 735 0727 4 

; 736 0728 4 

s 737 ore? 4 

; 738 0730 4 

; 739 0731 3 

; 740 Ors 2 

: 741 07 § 

s 76 0734 RE 

s 7% 0735 1 END; 
55 


H 
NAL a titte: parameter handling routines 16- 
SRANGE List range parameter 14- 


4 
e 
gepn 1382 99:18:38 
IF (.FLDADR) <0,16> NEQ (.FLDADR) <16,32> THEN 

BEGIN 

M COUNT 


AX-11 Bliss-32 V4.0-74 
NML.SRCINMLLISPRM.B32; 


C 1$nc0 COUNT +1; 
CHSWCHAR A ( 
BIR = = CHSMOVE Ay os FLDADR) <16,32>, .PTR); 
LENGTH = .PTR = NMLST_PRMBUFFER; 
NL SADDMSGPRM (. -BUFDSC, 
SEM_ sitet t pestsu_ DATAID) 
-SEM-LIST PST$B-DATATYPE) OR .CM_COUNT, 


NML$T_PRMBUFFER); 


Increment pointer and songen to get next range pair in the 
permanent data base recor 


mn-n.-.-.-.- 
z 


FLDADR = .FLDADR + 4; 
LOSIZE = .FLDSIZE = 4; 


TURN NML$_STS_SUC 


! end of NMLSLISRANGE 


- __007¢ 00000 .ENTRY NMLSLISRANGE Save he. R3,R4,R5,R6 
56 00000000 00 i 00002 MOV NMi$T_PRMBUFFER, 
5E 04 C2 00009 SUBL2 #4, SP 
7E 04 0000C CLRL.  -FLOADR 
SE DD O000E PUSHL SP 
08 AE 9F 90019 PUSHAB FLODSIZE 
7E 04 BC 3C 0001 MOVZWL @S-M_LIST, -(SP) 
10 AC DD 00017 PUSHL DATD 
000000006 00 4 FB OOO1A CALLS #4, NMASSEARCHFLD 
56 0 €9 9081 BLBC —_—«RO,; 
53 04 AC DO 00024 MOVL SEM_LIST, R3 
04 AE OD 990 8 1$: TSTL  FLDSIZE 
40 15 00028 BLE S§ 
52 é& 3 00 D MOVAB NMLST_PRMBUFFER, PTR 
4 1 p00 000 0 MOVL #1, CA_COUNT 
82 02 90 000 vB ; OP 
83 60 BE BO 90 MOVW a@FLDADR, (PTR)+ 
5 6E DO O003A MOVL  FLDADR, 80 
51 02 AO 9E 00030 MOVAB 2(RO) 1 
51 6E 01 00041 CMPL PLDADR, R1 
9 13 00044 BEQL 82 
4 D 0046 INCL  CM_COUNT 
a 02 90 0004 MOVB #2, (PTR)+ 
02 =A : 48 MOVW 2(RO), (PTR)+ 
66 ; GF 2%: MOV NML$T PRMBUFFER, RO 
2 C 52 SUBL ahi LENGTH 
0060 8F 6B 00056 PUSHR #*M 5 Res 


Pe a a > os 4 2 ts ts as SS 9 = Ws as ss tS ss 


4 

NMLSLISPRM NML ttt parameter handling routines 15-Sep-1984 00: 18:3 ge Bliss-32 V4.0-742 Page 3 
v04- NMLSLISRANGE List range parameter 14-Sep-1984 12:50:0 NML.SRCINMLLISPRM.B32;1 (9) 
0 03 Ad 9A itty poy zat 3(R3), RO ; 0722 

7E 0 54 ¢9 00 25 BISL CM_COUNT, RO, =(SP) : 
& 04 BC 3¢ 0006 MOVZWL a@SEM_LIST, =(SP) : 0721 
43 8 AC 7D 00066 MOVQ are C, -(SP 3; 0719 

000000006 0 6 F Boh CALL #6, NMLSADDMSGPRM : 
6E 4 ¢ 1 ADDL #4, FLDADR 3 0729 
04 AE 4 f 74 SUBL #4, FLOSIZE 3; 0750 
ae 1 00078 BRR.sd + 0701 
50 0 p° 7A 3$ MOVL #1, RO 3 0734 
4 7D RET : 0735 


; Routine Size: 126 bytes, Routine Base: S$CODES + 024C¢ 


4 
NALSLISPRM NML special parameter handling routines 1b-Se -1984 00:16:5 AX-11 Bliss-32 V4.0-742 Page 25 NPL 
v04- NMLSLTSOWNER Get OWNER parantter 12-8 08- 1 3b. 1 38:38 ENML. SRC NM. ISPRM.B32;1 . 83 v04 
> 745 7 $ 1 XSBTTL “WML SLISOWNER Get OWNER parameter' : 1 
3 oe f ! GLOBAL ROUTINE NMLSLISOWNER (SEM_LIST, BUFDSC, MSGSIZE, DATDSC)= ; } 
: 748 t38 1 !44 2) 
; 749 0740 1 ! FUNCTIONAL DESCRIPTION: 1 
s 750 th} 2% This routine adds the circuit parameter, OWNER, to the NICE : 1, 
. re 1! response message. The owner parameter is saved as a bit value. at 
; P26 Boe 1} If it’s set, the executor owns the circuit. Check to see if : 1 
: ee O766 it's set, and, if so, return the executor node ID. : : 
; 755 0746 1 | FORMAL PARAMETERS: 21 
: 736 O76? 1! 3% 
ee 746 1! SEM_LIST Parameter semantic table entry address. 21 
; 758 0749 1! BUF BSC Output message buffer descriptor address. :] 
; 39 0750 1! MSGSIZE Address of current output message size. : 1 
; 760 0731 Vi DATDSC Q10 buffer descriptor address. : 1 
; 76 bF2g 1°! IMPLICIT INPUTS: 3 
3 eer bee } It is assumed that the permanent data base file is already open. : : 
: 765 0756 1 =! IMPLICIT OUTPUTS: P 3 7 
: 766 0757 1! The output message buffer contains the coded multiple executor node : 1 
: 767 0758 1! address. : 1 
; 768 0759 1! $7 
3; 769 0760 1 ! ROUTINE VALUE: 3:1 
3; 770 0761 1 | COMPLETION CODES: : 1 
3s 77i 3h ¢4 1! Always returns success (NML$_STS_SUC). 71 
3; 772 0763 1! 21, 
3s 773 0764 1 !-- 31 
: 774 0765 1 ‘eB! 
3 775 0766 2 BEGIN : 1 
3; 776 0767 21 
: 777 0768 p 3:1 
s 778 0769 § SEM_LIST : REF BBLOCK; 3% 
3; 779 0770 | 
; 780 0771 2 BIND EXECUTOR = UPLIT BYTE > : 1 
3 781 O77e (NMASM PTY COD+1, NMASC_ENT_NOD, ! Entity type = node 3% 
: 78 077 2, WORD (03); |! Node addréss = executor 3 1 
; 78 0774 3% 
3 (784 0775 CAL 3 
; 785 0776 FLDADR mf 
> 786 0777 FLDSIZE; 31 
; 787 0778 3 
; 738 0779 2 FLDADR = 0; : 1 
: 789 0780 2 IF NMASSEARCHFLD (.DATDSC 21 
: 790 0781 -SEM_LIST CPSTS$W_DATAID], 31 
3; 791 78¢ STZE, : 1 
; 79 078 FLDADR) THEN s 7 
; 79 0784 BEGIN . 7 
: 794 0785 IF ..FLDADR THEN 3 Y 
; 795 07 NMLSADDMSGPRM (.BUFDSC 27 
> 796 78 -MSGSIZE 3:1 
: 797 788 “SEM_LIST FPST$¥_DATALD] 71 
: 798 789 SEM“LIST CPSTSB-DATATYPE OR 2, 31 
: 799 790 i a7 
; 800 791 EXECUTOR); , 
; 801 0792 END; | 5.7 
} 


“ 
Mr mr m 


—No NM 


VMONNUW 
Coommnao 


Routine Base: 


; Routine Size: 


ecial parameter handling routines 
SOWNER Get OWNER parameter 


: RETURN NML$_STS_SUC 
END; 


02 00 81 


00 
00000000" 
03 


08 


0000 


SCODES + O2CA 


Ooy FOVUAWOOE 


FODIGCNOFONOODINONIOLNVS 
PUNMNMVS22256 


oOoOooooooooooocoo 
OoOoOooooooooooooo 
OOOooooocoooooooeoo 


eww 


mn 
SOF NIWOT OMM NOW OTCTITFOo 
VnVan 


«PSECT 


ade 


EXECUTOR= 


-PSECT 


80 18:58:08 ENmcsSRCINALLISPRN-B3e; 


! End of NMLSLISOWNER 


SPLITS,NOWRT ,NOEXE,2 


-127, 0, 2 
0 


P.AAF 


SCODES,NOWRT,2 
NMLSLISOWNER, Save R2 
#4, SP 
ELDADR 


DA 
#4, NMASSEARCHFLD 


aFLDADR, 1$ 
EXECUTOR 


cR 
BUFDSC, -(SP) 
46, NL SADDMSGPRM 


Sete Se Se Ge Se Se Ge Se Se Fe Se Se Ge Se Se Se Se Be Se 


0737 


0779 
0780 


0781 
0780 
0785 
0786 
0789 
0788 
0786 


0793 
0794 
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4 
NAL PRM NML_ special parameter handling routines 1b-se -1984 00:16: AX-11 Bliss-32 V4.0-74 P 7 
NMLSDEF PARAM Add parameter ° 1a-Sep- 38 99:38:38 ENML.SRE NMLLISPRM.B32; age 49) 


RSBTTL "NMLSDEFPARAM pe per m : 


RETURN NML$_STS_MPR 
END; 


; 805 795 #1 ameter 

: Be ge } GLOBAL ROUTINE NMLSDEFPAR (SEM_LIST, BUFSIZE, LENGTH, ADDR, RTNDSC)= 

: 08 798 1 '44 

: 809 799 1} FUNCTIONAL DESCRIPTION: | 
3 ai a801 ' This routine adds a parameter to a permanent data base record. 

3 HE agos 1 FORMAL PARAMETERS: 

; 15 0805 i i SEM_LIST Parameter semantic table entry address. 

; 818 Bane zz BuF SIZE Permanent database record nen toun size. 

; #81 Or 1! LENGTH Length of parameter to insert in record. 

; 818 0808 1! Address of parameter to insert in record. 

; $33 ett : RTNDSC Permanent database record buffer descriptor address. 

5 3 0811 IMPLICIT INPUTS: 

; 638 a818 ! ; It is assumed that the permanent data base file is already open. 

; 825 0815 i IMPLICIT OUTPUTS: 

; iH HEA : The parameter is added to the record. 

: 829 0819 1 | ROUTINE VALUE: 

: o30 +t] : COMPLETION CODES: 

; S36 8858 : Always returns success (NML$_STS_SUC). 

3 B34 0824 i SIDE EFFECTS: 

> 836 0826 1! NONE 

s 857 0827 1! 

; 838 0828 1 !-- 

; 839 0829 1 

: 840 0830 BEGIN 

: 841 0831 

3 Hk: Boag P 

: Bz oetz SEM_LIST : REF BBLOCK; 

> B45 0835 IF NOT NMASINSERTFLD (.BUFSIZE 

3 B46 0836 -SEM_LIST CPST$W_DATAID), 

; 847 0837 LENGTH, 
; 8 rtd . ADDR 
> B49 “RTNDSC) 
: 850 0840 THEN 

: 33 +98 ; BEGIN 

: B38 se i Insert failed. | 
: HD 845 ‘ NMLSAB_MSGBLOCK CMSBSL_FLAGS] = MSBSM_MSG FLD; ! Set message text flag | 
; 856 peed NMLSAB_MSGBLOCK CMSB$B_CODE) = NMASC_STS MPR; ' Add error code 

: S22 : NMLSAB"MSGBLOCK CMSBSL_TEXT] = NMLS_RECBFOVE; 

: 859 9 

; 86 50 

; 0851 


-—-o 
Co 
w 


m 4 | 
SLISPRM NAL pre cial parameter handling routines 16-Sep-1984 216: AX-11 Bliss-3 0-74 P 

VO%~000 NALS DEFP PAR RAM” Add parameter ° 14-Sep ats 99:38:38 NML.SRC Wael PSPueb 832; a9e 495 
‘ . 9 
3 is os it Be RETURN NML$_STS_SUC : } 
; 865 a8 ! End of NMLSDEFPARAM | : \ 
es 
3 1 
iq 
0004 00000 «ENTRY NMLSDEFPARAM, Save R2 3 0796 $3 
V L MSGBLOCK, R F Bs 
eee eS es ec a we) |] 
o¢ AC DD $0 D PUSHL LENGTH : $839 77 
7E 4 BC 3¢ 00010 MOVZWL SSER LIST, =(SP) : 0836 3 
08 At DD 00014 PUSHL FSYZE 3; 0835 3 7 
000000006 99 92 : Bate yt oo PeiNeEn TLS r : , 
6 04 00 Ba08 | MOVL #4, NMLSAB =ASGBLOCK 3; 0845 3 7 
04 =#=#A 05 8E 00024 MNEGB #5. NMLSAB-MSGBLOCK+ 3; 0846 3 7 

MOVL ANML RECBFOVF, NML 1B. MSGBLOCK+ 3 b4 

OC A2 00000000G 8F 00 00028 $_RECBF 4 12 0847 1 
50 OA cf 338 5 as #10, RO 3; 0849 : , 
50 01 00 ig 1$: MOVL ~ RO ; 0853 $7 
04 00037 RET ; 0855 : : 
3 Routine Size: 56 bytes, Routine Base: $CODE$ + 0310 ; : 
37 
3% 
3%, 
: 1. 
ay 
3}, 
zy, 
Bi 
31 
* 
27 
3 1 
3 1 
3 1 
2% 
3 1 
s 
3 1 
3 1 
3 1 
a 7 
3 1 
3 1 
31 
: 1 
2s. 5 
31 
_ 
. 7} 
¢ 1 


4 
SLISPRM NML_ special parameter handling routines 16-Sep-1984 00:16:5 AX-11 Bliss-32 V4.0-74 Page 29 NM 
WO4~000 NMLSDEFLINLT? Add Line type Soranetor 13-88-1382 99:48:38 ENML «SRC NALLTSPRM 93244 ’ 13) voe 
; 867 08 $ ] XSBITL ONMLSDEFLINLTY Add Line type parameter’ 7] 
; 508 8 : GLOBAL ROUTINE NMLSDEFLINLTY (SEM_LIST, BUFDSC, LENGTH, ADDR, RTNDSC)= : } 
; 870 08 ; 1 '44 : 3 
; tal et : FUNCTIONAL DESCRIPTION: : : 
; £78 O86 1! This routine adds the Line type parameter to the permanent data :] 
> B74 0863 1 / base record if the value is valid. :] 
3; 875 0864 1! 8 
; 876 0865 1 ! FORMAL PARAMETERS: 37 
3 877 pas . 7 : 1 
; 87 8 67 1! SEM_LIST Parameter semantic table entry address. : 1 
; Br oe 1! BUFSIZE Permanent database record maximum size. : 1 
; 880 0869 1! LENGTH Length of parameter to insert in record. : 1 
; 881 0870 1! R Address of parameter to insert in record. : 1 
; HL + a : } RTNDSC Permanent database record buffer descriptor address. : , 
3; 884 oBa8 1 ! IMPLICIT INPUTS: 37 
; 885 0874 1! 37 
3 Hy + 189 ; It is assumed that the permanent data base file is already open. : : 
; 888 0877 1 ! IMPLICIT OUTPUTS: : 7 
: 889 0878 1! 3 7 
; 890 0879 1! The parameter is added to the record. 3:1 
; «4891 0880 1! 3 7 
: £98 0881 1 ! ROUTINE VALUE: 37 
: 89 0882 1 ! COMPLETION CODES: 27 
> 894 0883 1! 37 
; 895 0884 1! Always returns success (NML$_STS_SUC). 3 1 
3; 896 0885 1! 3 7 
3; 897 0886 1 ! SIDE EFFECTS: a 
; 898 0887 1! 3 
; 899 0888 1! NONE 3 
; 900 0889 1! 3 7 
; 901 0890 1 !-- 3 7 
: 90 0891 1 3 7 
; 90 089 BEGIN 3 1 
: 904 089 2% 
: 905 0894 P 37 
3 906 0895 SEM_LIST : REF BBLOCK; 37 
: 907 08 . 7 
; 908 0897 CAL 3 7 
; 909 0898 FLDADR : 
: 910 899 FLDSIZE. 31 
3; 911 900 STATUS; 3 
3 aig 0901 3 Y 
; 91 090 IF .(.ADDR)<0,8> EQL NMASC_LINTY_POI 31 
> 9146 090 THEN 3 
3 «915 904 BEGIN 3 1 
3 316 905 3 
; 91 906 FLDSIZE = 0; 37 
: 918 90 IF NMASSEARCHFLD (.RTNDSC 3:1 
> 919 908 NMASC_PCLI_TRI, 31 
; 920 909 FLOSIZE, 3% 
: 921 910 FLDADR) 3% 
; 9 ; ah THEN 3 3 
s 9 912 4 BEGIN 3% 


en eC Ta nrectal 


5 | 


; Routine Size: 77 bytes, Routine Base: S$CODE$ + 0348 


5 
NMLSLISPRM NML special parameter handling routines 16- -Sep-1984 AX-11 Bliss-32 V4.0-7 Page 30 
v04- NACSOEPLINLTE Add Line type Soreneter 14- ~tep- 1382 99: 48: 38 NML.SRCINMLLISPRM. B35, . 3s | v04 
> 924 913 4! | : 1) 
; 2 é aie : Line has tributary address so it cannot have type=POINT. ; ‘ 
: 9 916 4 
: 928 0919 4 NMLSAB_MSGBLOCK CMSBSL_FLAGS] = MSBSM_DET_FLD; 
; 39 318 4 NML$AB_MSGBLOCK [MSB$B_CODE] = NMASC_STS PVA; 
: 4 , 4h 4 : NMLSAB_MSGBLOCK CMSBS$W-DETAIL] = NMASC eu ULTY; | 
: $32 0921 4 RETURN NML$_STS_PVA | 
: 93 09 : 4 
: 934 09 END; | 
; 2 5 88 ¢ END; 
: 937 0926 STATUS = NMLSDEFPARAM (. sem LIST, 
: 938 0927 UFBSC, 
: 939 0928 PENGTN, 
: 940 09¢9 ADDR 
> 941 0930 -RTNDSC) 
; 94 0931 
: 94 093¢ RETURN .STATUS 
: 944 093 
; 945 0934 1 END; ! End of NMLSDEFLINLTY 
0004 00000 .ENTRY NMLSDEFLINLTY Save R2 : 0857 
52 000000006 00 9€ 00002 MOVAB NMLSAB_MSGBLOCK, : 
5E 08 ¢ 90009 SUBL2 #8, SP~ ; 
10 BC 95 0000C TSTB a@ADDR + 0902 
2B 12 OO00F BNEQ : 
04 AE 04 00011 CLRL  FLDSIZE > 0906 
SE DD 00014 PUSHL : 0907 
08 AE 9F 00016 PUSHAB FLDSIZE ; 
7E 0474 8F %3C 00019 MOVZWL #1140, -(SP) : 
14 AC DD OOO1E PUSHL RIN ; 
000000006 00 04 FB 00021 CALLS #4, NMASSEARCHFLD ; 
11 0 €9 00028 BLBC ; 
4 08 dO 0028 MOVL #2. NML$AB_MSGBLOCK : 0917 
04 Ae 1 E 00 MNEGB #16, NMLSAB_MSGBLOCK+4 : 0918 
08 A 0458 8F BO 000 MOVW #1112, NMLSAB_MSGBLOCK+8 : 0919 
5 20 CE 000 MNEGL #32, RO : 0921 
4 9 B RET ; 
7E 10 Ac 7D ¢ 1$: MOVQ ADDR, =(SP) : 0929 
7E 08 AC 7D 0004 MOva BUF DSC 7 sP) : 0927 
04 AC DD 00044 PUSHL seM_L : 0926 
FF7C OCF 05 FB 00047 CALLS #5, “NAL SDEFPARAM ; 
04 0004C RET > 0934 
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pereneter handling routines 16- 
RI] Add line tributary address param 1 


cial S$ 
LINT “S$ 
serv "NMLSDEFLINTRI Add Line tributar ad 


arame 
BAL ROUTINE NMLSDEFLINTRI (SEM_LIST, BUF 


5 
ep-19be 18:58: és ERML SRCINALLISPRM: 
geese LENGTH, So, RTNDSC)= 


1e4 
: FUNCTIONAL DESCRIPTION: 


This routine adds the Line tributary address parameter to the 
permanent data base record if it is valid for this Line. 
FORMAL PARAMETERS: 
SEM_LIST Parameter semantic table — address. 
BUFSIZE Permanent database record maximum size. 
LENGTH Length of parameter to insert in record. 
ADDR Address of parameter to insert in record. 
RTNDSC Permanent database record buffer descriptor address. 


IMPLICIT INPUTS: 

It is assumed that the permanent data base file is already open. 
IMPLICIT OUTPUTS: 

The parameter is added to the record. 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 
SIDE EFFECTS: 
NONE 


BEGIN 


Pp 
SEM_LIST : REF BBLOCK; 


SEA akineip (. RTNDSC 
NMASC_PCLI_LTY, 
MUDSiTE. 
FLDADR) 
THEN 
BEGIN 
IF .(.FLDADR)<0,8> EQL NMASC_LINTY_POI 
THEN 


BEGIN 


dD 5 

NMLSLISPRM NML special parameter handling routines 16-Sep-1984 00:16:5 AX-11 Bliss-32 V4.0-74 Page 32. NAL 

v04- NMLSDEFLINTRI Add Line tributary address param 1a-Sep- 7 99:38:38 ENML SRC WALL PSPMR O34 . a vO% 

; 1004 992 4! | st 

; 1005 993 4 ! Line has type=POINT so no tributary address can be specified ; 4 

: 1006 994 4 3 

; 100 995 4 | 5 i 

; 1008 0996 4 NML$AB_MSGBLOCK MSBSL FLAGS] = MSBSM_DET FLD; | Hey 

; 1009 0997 4 NMLSAB_MSGBLOCK [MSBS$B_CODE] = NMASC_STS_PNA; ey 

; 1910 0998 4 NMLSAB_MSGBLOCK CMSBSW DETAIL] = NMASC_PCLI_fRI; | ae 

; 101g 1000 4 RETURN NML$_STS_PNA : Y 

; 101 1001 4 - 

> 1014 100¢ 3 END; ny 

> 1015 196 END; . 4 
; 1016 1004 ; 

: 101 1005 STATUS = NMLSDEFPARAM (.SEM LIST, | : | 

; 1018 1006 -BUFOSC, any 

: 1019 1007 LENGTH, et 

: 1020 1008 ADDR : 

: 1021 1009 -RTNDSC) ; : } 

3 102@ 1010 31 

: 102 1011 RETURN .STATUS an 

: 1025 1013 1 END; ! End of NMLSDEFLINTRI 3} 

: 1 

3 1 

3 

0004 00000 .ENTRY NMLSDEFLINTRI, Save R2 : 0936 ; \ 

52 000000006 00 i 00002 MOVAB NMLSAB_MSGBLOCK, R2 ; ef 

SE 08 C2 00009 SUBL2 #8, : ay 

04 AE D4 0000C CLRL —« FLDSIZE ; 0981 : 

5E DD O000F PUSHL ; 0982 sf 

08 AE 3 60011 PUSHAB FLDSIZE ; 2} 

7€ 0458 8F 3C 00014 MOVZWL #1112, -(SP) ; 3} 

14 AC DD 00019 PUSHL RTND ; at 

000000006 00 04 FB 9001¢ CALLS #4, NMASSEARCHFLD ; 2 

16 50 £9 000 BLBC . ; i 

00 BE 95 00026 TSTB = @FLDADR ; 0989 3} 

11 12 0029 BNEQ =s'1$ ; BY 

6 02 g 0028 MOVL as NMLSAB_MSGBLOCK ; 0996 at 

04 A 16 BE 000 MNEGB #20, NMLSAB_MSGBLOCK+4 : 0997 :) 

08 A 0474 8F BO 000 OVW #1140, NMLSAB_MSGBLOCK+8 ; 0998 23 

5 2c if 00 RNEGL #44, RO ; 1000 : 

7E 10 Ac 7D 09 C 1$: MOVQ ADDR, -(SP) : 1008 3% 

7E 08 AC 7D 00040 mova BUFDSC, =(SP) : 1006 71 

04 AC DD 00044 PUSHL SEM_L ; 1005 + 

FF2F OCF 05 FB Beer CALLS #5, NMLSDEFPARAM : 3 } 

04 0004C RET ; 1013 : ' 

; Routine Size: 77 bytes, Routine Base: SCODES + 0395 : : 

3 7 

3 1 

a 

3 ¥ 

37 
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NMLSLISPRM NML special parameter handling routines 1b-Se 1984 00:16:5 AX-11 Bliss-32 V4.0-742 Page 33. NAL 
vOu=008 NMLSDEF-NODECADDR Add node address parameter 1e-Sep=1984 3:38:08 CNML. SRE NMLLISPRM.B32;1 ~ (14) | vo4 
; 1027 1014 1 ZSBTTL "NMLSDEF NODE ADDR Add node address peceseter. ; } 
; + 3 ! 1? : GLOBAL ROUTINE AMLSDEF_NODE_ADDR (SEM_LIST, BUFDSC, LENGTH, ADDR, RTNDSC)= 2 
; 1030 101? | tes 7] 
; 1031 1918 1 ! FUNCTIONAL DESCRIPTION: :] 
; 10 ¢ 1019 1! This routine checks the node address parameter to make sure | ‘ : 
: 10 1° 9 i it does not already exits in the node permanent database. If it does ‘ 
; 1034 1021 1! not, it adds the node address to the permanent data base record. | ‘ ! 
; 1035 10 ¢ 1! This routine is not used to check for duplicate node names because : 
; 1036 10 zz the node database name key is declared as ‘'noduplicates''’, so RMS 7] 
; 1037 1024 1! will do this check for node names when the record is written to :] 
: 1038 1025 1 the file. 2] 
; 1039 1026 1! 7] 
; 1040 1027 1 ! FORMAL PARAMETERS: :] 
> 1041 1028 1! SEM_LIST Parameter semantic table entry address. :] 
: 104¢ 1089 1} BUF SIZE Permanent database record maximum size. st 
3; 104 1030 1! LENGTH Length of parameter to insert in record. ‘ 
> 1044 1031 1! ADDR Address of parameter to insert in record. 7] 
3 ipez 1038 ! RTNDSC Permanent database record buffer descriptor address. ‘ ! 
3 1047 1034 1°! IMPLICIT INPUTS: :] 
; Hb r4: 1932 : It is assumed that the permanent data base file is already open. ; : 
3 1050 1037 1! IMPLICIT OUTPUTS: : : 
; 1051 1038 1! The parameter is added to the record. : 
; 105¢ 1039 1! 2 
; 105 1040 1 ! ROUTINE VALUE: : 
> 1054 1041 1 ! COMPLETION CODES: :] 
: 1055 ee 74 Returns success (NML$_STS_SUC) if the node address is successfully : 1 
: 1056 1045 1! added to the permanent database record. . :] 
: 1057 1044 1! Returns nml$_sts_pva if the new address is already defined in the :] 
: 1058 1045 1! node permanent database. :] 
; 1059 1046 1! :] 
; 1060 1047 1 ! SIDE EFFECTS: | 2] 
; 1061 10468 1! NONE i] 
: 1962 1049 1 | | i] 
; 106 1050 1 !=- : 
> 1064 1051 1 i] 
> 1065 1058 BEGIN : : 
: 1066 105 : 
> 1067 1054 2 MAP ; sf 
; 1068 1055 sem_list : REF BBLOCK | > 
> 1069 1056 rtndsc : REF DESCRIPTOR; 
; 1070 1057 
; 1071 1058 LOCAL 
; 1078 1059 status; 
; 107 1060 
3 1074 1061 ’ ’ : | 
; 1075 1066 ! If there's another node in the permanent database with the new address, 
3 1o7e 106 ! return an error message to NCP. | 
; 107 1064 ; 
3; 1078 1065 IF nml_find_duplicate_node (.sem_list, .bufdsc, 
; 1079 1066 “nengee .addr, 
> 1080 1067 -rtndscS THEN 
; 1081 1068 BEGIN 
3 Hh 4 Hs 3 nml$ab_msgblock (msb$v_det_fid] = 1; 
; 108 1070 nml$ab_msgblock ([msb$b_code] = nma$c_sts_pva; 
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; Routine Size: 
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NML_ special parameter handling routines 16-Sep-1984 00:16:36 AX=11 Oi taerne V4.0-742 
NMLSDEF _NODE_ADDR Add node address parameter 14-Sep-1984 12:50:0 NML.SRCINMLLISPRM.B32;1 
1071 nml$ab_msgblock Cmsb$w_detail] = .sem_list Cpst$w_dataid]; 
1076 RETURN nml$_sts_pva 
107 END; 
eae 
1928 The node address is unique. Add it to the node's permanent database record. 
1078 status = nmlS$defparam (.sem_list, 
1079 -bufdsc, 
1080 . length, 
1983 een ) 
.rtndsc); 
1988 
ee RETURN .status 
1086 1 END; ! End of NMLSDEF_NODE_ADDR 
0004 00000 -ENTRY NMLSDEF_NODE_ADDR, Save R2 
52 000000006 00 9E 00002 MOVAB NMLSAB_ASGBLOCK, R2 
7E 10 AC 7D 00009 MOVQ ADDR, =-(SP) 
7E 08 AC 7D 0000D MOV BUFDSC, =(SP) 
04 AC ODD 00011 PUSHL SEM_L 
00000000v 00 05 FB 00014 CALLS #5, NML_FIND_DUPLICATE_NODE 
10 50 €9 0001B BLBC ° 
62 02 88 QOOIE BISB2 #2, NML$AB_MSGBLOCK 
04 A 10 8€ 00021 MNEGB #16, NMLS$AB_MSGBLOCK+4 
08 A2 04 BC B80 00025 OVW asch_List. AMLS$AB_MSGBLOCK+8 
50 20 CE QO02A MNEGL #32, RO 
Os 0002D ET 
7E 10 AC D 000 5 1$: MOVQ ADDR, -(SP) 
7E 08 AC 7D 000 Ova BUFDSC, -(SP) 
04 AC DD 00036 PUSHL SEM_LIST 
FEFO CF 05 FB 00039 CALLS #5, NMLSDEFPARAM 
04 0003E RET 


63 bytes, Routine Base: S$CODE$S + 03E2 
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NALSLISPRM NML special parameter handling routines 18-se -1984 00:16:5 AX-11 Bliss-32 V4.0-742 Page 35 
WO%~500 N SDEF EXEC ID Add executor name or address 14-Sep-19 4 99:38:38 ENML «SRC NMLLISPRM.B32; 1 . «33 v04 
ZSBITL ‘NMLSDEF ay ID Add executor name or address parameter' 
GLOBAL ROUTINE AMLSDEF_EXEC_ID (SEM_LIST, BUFDSC, LENGTH, ADDR, RTNDSC)= 
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' FUNCTIONAL DESCRIPTION: 

: This routine is called when processing a DEFINE EXECUTOR command 
to change the name or address of the executor node. It checks 
the new name or address parameter to determine if it's already 
eqs igned to some other node. If it is, this means the scone iy 
of the executor is Betne changed. Delete the remote entry wit 
that name or address. he new name or address is added to the 
executor node permanent database record. It is written back 

to the file later. 


FORMAL PARAMETERS: 
SEM_LIST Parameter semantic table entry address. 


BuF SIZE Permanent database record maximum size. 
LENGTH Length of parameter to insert in record. 
R Address of parameter to insert in record. 
RTNDSC Permanent database record buffer descriptor address. 


IMPLICIT INPUTS: 
It is assumed that the permanent data base file is already open. 


IMPLICIT OUTPUTS: 
The new executor name or address is added to the record. 


ROUTINE VALUE: 
COMPLETION CODES: 
Returns success (NML$_STS_SUC) if the node address is successfully 
added to the permanent database record. 
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IF nml_find_duplicate_node (.sem_list, .bufdsc, 
2 eng a rf, 
crtndscS THEN 

BEGIN 
i The executor node identity is being changed to that of a node that's 
e 


! already in the database. Delete the remote entry for that node (there 
! are no parameters that it makes sense to carry over in this case) 


cc ee me me ec me me ee ee cD ee ce De ee em ec ee ce ee ce ee ee ee a ed ed ed ed dd 
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34 f the new executor name or address is already assigned to some 

35 other node in the permanent database, that remote node is deleted from 

36 the database. 

37 

38 == 

39 

40 BEGIN 

41 

| MAP 

4 addr : REF BBLOCK (2), 

te sem_list : REF BBLOCK; 

46 LOCAL | 

47 status, 

48 temp; | 

49 
0 
1 
§ | 

| 

i } 
5 | 
6 
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ial parameter handling routines 16-Sep-1984 00:16:5 AX-11 Bliss-32 V4.0-74 

“EXEC ID Add executor name or address 13238071384 99:38:38 ENML.SRC NMLLISPRM.B32; 

so the executor can become that node. 

nml$delete_node_rec (.sem_List Cpst$w_dataid], ! Database key 

ength); ! Name or address dsc. 
nmi $ab_msgblock fmsb$v_msg {ld = 1; 
k Cmsb$l"text] = nml$_recdelet; 


nm $ab_msgbloc 
; END; 


i ~~ the RMS “current record’’ pointer back to the executor node's 
entry. 


i geeeeeeeeerereneeeeeeeeeeeeee TEMPORARY 
nml\$gw_perm_exec_addr = 0; 
(eeeeeeeeeeeeeeeeeeekeeeeeeeeeeeeeeere 
nm $getexeadr (temp); 
i If the new executor address is 0, leave it that wey If the area number 
! of the address is 0, then default it to area 1 (this is for DEFINE EXEC 
ADDRESS only) so the exec will have a valid area number in the database. 
if .sem_list Cost$w_dataid] EQL nma$c_pcno_add THEN 

BEGIN 


IF .addr Cnma$v_addr] NEQ 0 AND 
-addr_Cnma$v_area] EQL 0 THEN 


= _addr Cnma$v_area] = 1; 
status = nml$defparam (.sem_list, 


-rtndsc); 
F .sem_List Cpst$w_dataid] EQL nma$c_pcno_add THEN 
nmlSgw_perm_exec_addr = .(.addr)<0,16> 
BEGIN 
CHSMOVE (. length, .addr, .nml$gq_perm_exec_nmame_dsc [1]); 
nml$gq_perm_exec_name_dsc [0] = <length; 
RETURN .status 
END; ! End of NMLSDEF_EXEC_ID 


OOFC 00000 .ENTRY NMLSDEF_EXEC_ID, Save R2,R3,R4,R5,R6,R7 
57 000000006 00 H 000 MOV NML$GW_PERM_EXEC_ADDR, R? 
SE 4 C2 000 SUBL2 #4, SP 
146 AC oD 000¢ PUSHL RTNDSC 

52 10 AC DO OO00F VL. ADDR, R2 

5 pp 1 PUSHL 
ze 08 AC ; 1 OVO BUFDSC, -(SP) 
5 4 AC D 1 MOVL  SEM_LIST, R3 

53 DD 9010 PUSHL 

00000000v 00 05 FB OOO1F CALLS #5, NML_FIND_DUPLICATE_NODE 
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AX-11 Bliss-32 V4.0-742 


382 99:48:38 NML-SRCINACL I SPRM.B3274 


-(SP) 
#2, NMLSDELETE_NODE _REC 
#4, NNLSAB LOCK™ 

ANALS RECDELET, NMLSAB_MSGBLOCK+12 
NML$GQ_PERM_EXEC_ADDR 


Re 2: Malate 


2 

(R2), #1023 

2$ 

pahet #252 

#1, #10, #6, (R2) 
TNDSC 


BUFDSC, =(SP) 
, NMLSDEF PARAM 
STAT Tus 
i,t 
(R2), NML$GW_PERM_EXEC_ADDR 
NML$GQ -PERM EXEC NAME_DSC+4, RO 
LENGTH: R2d 


LENGTH NAc sa. PERM_EXEC_NAME_DSC 
STATUS, RO 


2 
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NPLSLISPRM NML r 

v04= NML NODE Check perm db for node 14-Sep-1984 ML.SRCINMLLISPRM.B32; 1 (16) 
F 
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' FUNCTIONAL DESCRIPTION: 

' This routine checks the node name or address parameter to see 
if it already exists in the node permanent database. 


i FORMAL PARAMETERS: 


SEM_LIST Parameter semantic table — address. 
BuF SIZE Permanent database record maximum size. 
LENGTH Length of parameter to insert in record. 
Address of parameter to insert in record. 
RTNDSC Permanent database record buffer descriptor address. 


! 
' 
' 
! 
i] 
! 
i] 
! 
' 
1! 
1 
i] 
i 
! IMPLICIT INPUTS: é 
It is assumed that the permanent data base file is already open. 
! 
i] 
i] 
i] 
' 
1 
1 
1 
i 
| 
1 
1 
1 


MMM TToroTrorororrrrorrrer 


i IMPLICIT OUTPUTS: 

NML$Q_PRMDSC is the descriptor of the duplicate node's record 
(if there is one) which is used to return the ID of that node 
in the NICE error message. 
i ROUTINE VALUE: 
Returns status of node Lookup. 


i SIDE EFFECTS: 
None 
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' COMPLETION CODES: 

9 . 

20 
“$ 21 
35 $8 § map 
+4 $e sem_list : REF BBLOCK; 
41 $8 LOCAL 
tg 7 key, 
4 28 node_id_dsc: VECTOR Sq). 
46 $3 dup_dsc: VECTOR C2J, 
45 0 node_type, 
m4) 1 status; 
ref $5: 
49 4 ' Look for a node name (or address) that was previously DEFINEd in the node's 
20 5 permanent database record. 
25 5 node_id_dsc 4 = Q; 
5 3 node_id_dsc (0) = 0; 
54 3 status = nma$searchfld (.rtndsc, 
55 40 -sem_list (Cp fSu_dataid), 
28 41 node_id_dsc } 

42 node~id-dsc (135; 


eens 
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NMLSLISPRM NML special parameter handling routines 16-Sep-1984 00:16:5 AX-11 Bliss-32 V4.0-74 Page 39 
yor. b08 NML_FIND.DUPLICATE. NODE Check perm db for node 12-88-13 99:38:38 ENML «SRE NMLLISPRM.B32; ’ (16) 
5s % 1243 
.y 28 1244 ' 
: 1260 1245 ! If there is no yor, defined node ID, or the previous ID is different 
: 1261 1 ‘3 ! from the new ID in the NICE DEFINE command, then check to see if there's 
; : : rtf another node with the same name or address in the node permanent database. 
> 1264 1249 IF NOT .status 
: 1265 1250 OR 
3; 3 98 1251 (.status AND 
: 126 1 26 CHSNEQ (.node_id_dsc [0], .node_id_dsc [1], .length, .addr)) THEN 
>; 1268 125 BEGIN 
3; 1269 1254 key = .sem_list Cpst$w_dataid]; ! Make key a longword. 
: 1270 1255 tatus = nml$readrecord (nma$c_opn_node, ! Node database file ID 
3 1271 1256 key, ! Node database key 
3; 127 1257 sength. ! Address of key value descriptor 
3: 127 1258 nml q prmdsc, ! Buffer for node record 
3 1274 1259 dup_dasc, ! Duplicate node data descriptor 
3: 1275 1260 node_type); ! Node entity type. 
; 1276 1261 IF .status THEN 
3: 1277 1 6 4 BEGIN Y 
: 1278 1263 4 ! : 
: 1279 +e & ! There is another node with the new name or address DEFINEd. ‘ 
3; 1280 1265 4 ! Add duplicate node id to NICE response message parameters. The node : 
; 1s : $6 ? ; ID will be returned in the NICE response to NCP. ‘ 
3 1588 1268 4 nml$q_entbfdsc [0] = nml$k_entbuflen; : 
> 1284 1269 4 nml$q_entbfdsc C1] = nml$t_entbuffer; ; 
3; 1285 1270 4 nml$getrecowner (dup_dsc, ; 
3; 1286 1271 4 -node_type 
: 1287 18% 4 nmi $qzentbfdsc, 
>; 1288 1273 4 pale entbfdsc [0)); . 
3; 1289 1274 4 nmi$ab_msgblock Cmsb$T_flags] = msb$m_entd_fld; ! Set entit, descriptor flag 
3 1s gt? 4 nml$ab_msgblock Cmsb$a_entity] = nml$q_entBfdsc; ! Add entity descriptor pointer 
; 1382 1277 : END 
3: 129 1278 ELSE 
3 1294 1279 status = nml$_sts_cmp; 
3: 1295 1280 RETURN .status 
: 1296 1281 1 END; ! End of NML_FIND_DUPLICATE_NODE 
003C 00000 NML_FIND_DUPLICATE_NODE: 
eWORD Save R2,R3,R4,R5 : 1187 
55 00000000' 00 35 0000. MOV NMLS$Q_ENTBFDSC, RS 3 
5E 18 ¢ bo SUBL #24, SP 3 
10 AE 7C 0000C CLRQ NODE_ID_DSC : 1238 
AE 9F QOOOF PUSHAB NODE_ID_DSC+4 > 1242 
14 AE 3 Bh PUSHAB NODE_ID_DSC : 1241 
7E 06 Bc 3C 1 MOVZWL @SEM-LIST, -(SP) : 1240 
14 AC OD 1 PUSHL RIND : 1239 
000000006 00 4 F 1 CALLS #4, NMASSEARCHFLD 3 
4 0 D MOVL RO, STAT 3 
C 4 5 BLBC_ = STATUS : 1349 
oc AC 00 14 BE 10 AE 2d 00029 CMPC5 NODE_I6_DSC, @NODE_ID_DSC+4, #0, LENGTH, = ; 1252 


53 
NAL PRM special parameter handling routines 18-5 Sep 4 AX-11 Bliss-32 V4.0-74 
vat tf NAL H ND_DUPLICATE_NODE Check perm db for node 14-Sep- 7138 99: 48: 39 NAL -SREINMELT SPRM 03224 
10 BC @ADDR 
4F 13 BEQL 2$ 
04 AE 04 gC C 1$: MOVZ2WL @SEM_LIST, KEY 
AE BF Oooke PUSHAB DUP_DSC 
00000006) Ob F F PUSHAB NAILS PRMDSC 
C AC OF 43 PUSHAB GTA 
14 AE OF 0004 PUSHAB Ker 
7E D4 06048 CLRL (SP) 
000000006 00 06 f 9040 CALLS We, N NML SREADRECORD 
54 D 54 MOVL TUS 
ep 34 . 0 37 BLBC =. ST Tos. $ 
5 40 BF SA A MOVZBL hh NML$Q_ENTBFDSC 
04 AS CO AS 9E 0005 MOVAB NM ST _ENTBOFFER, NMLS$Q_ENTBFDSC+4 
55 DD 0006 PUSHL R5 
55 DD 0006 PUSHL  R5 
08 AE DD 00067 PUSHL NODE TYPE 
14 AE 9F OO06A PUSHAB 
000000006 00 04 FB 00060 CALLS yA “NMLSGETRECOWNER 
000000006 00 10 00 9007 MOVL #16, NML$AB_MSGBLOCK 
000000006 00 65 9E 00078 MOVAB NML$Q_ENTBFDBSC, NAL SAB _MSGBLOCK+20 
03 11 00082 BRB 
54 10 CE 00084 28: MNEGL #16, STATUS 
50 54 D0 00087 3$: MOVL STATUS, RO 
04 O008A RET 


; Routine Size: 139 bytes, Routine Base: S$CODE$ + 04C5 
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NML special parameter handling routines 16-Sep-1984 00:16:5 AX-11 Bliss-32 V4.0-74 P 41 
NMLSDEFNODNLE Add loop node Cine pereneter 12-86-1382 99:38:38 NAL SREINAEL SPAN 03224 Sant 


¢ ZSBTTL "NMLSDEFNODNLI Add }oop node Line parameter 
? GLOBAL ROUTINE NMLSDEFNODNLI (SEM_LIST, BUFDSC, LENGTH, ADDR, RTNDSC)= 

5 lee 
e FUNCTIONAL DESCRIPTION: 

8 i This routine adds the joe node Line parameter to the permanent 
89 ! data base record if this is a loop node and the circuit id is 
+4 unique (i.e. there is no other loop node set up on the circuit). 
3 FORMAL PARAMETERS: 

94 i SEM_LIST Parameter semantic table entry address. 
95 ! BuF SIZE Permanent database record maximum size. 
9 : LENGTH Length of parameter to insert in record. 
9 : ADDR Address of parameter to insert in record. 
a8 RTNDSC Permanent database record buffer descriptor address. 
00 1 ' IMPLICIT INPUTS: 
5 It is assumed that the permanent data base file is already open. 
0 i IMPLICIT OUTPUTS: 
The parameter is added to the record. 
i ROUTINE VALUE: 
' COMPLETION CODES: 
Always returns success (NML$_STS_SUC). 
i SIDE EFFECTS: 
NONE 
—_ 


BEGIN 


Pp 
sem_list : REF BBLOCK; 


LOCAL 
fldadr, 
fldsize, 
circuit_dsc: VECTOR (2) ! Circuit already in node record (if any) 
node_rec_buf: BBLOCK nm($k_recbflen] ! Buffer for node data 
node_rec_dsc: VECTOR § ° ; Descriptor of node record buffer. 
node_rec_data: VECTOR ° ! Descriptor of data in node record buffer. 
status; 

fldadr 


= 0; 
IF nma$searchfld (.rtndsc 
nma$ _pcno_add, 
fldsize, 
fldadr) THEN 
BEGIN 


i Node has address so circuit is not allowed. Loopnodes have only one 
parameter - a circuit ID. 
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NM PRM NML_special parameter handling routines 16-Sep-1984 00:16:5 AX-11 Bliss-32 V4.0-74 Page 42 
VOL 008 NMLSDEFNODNLE Add loop node Pine parameter 12286-1382 99:18:88 NML.SRCINMLLISPRM.B32; ’ (17) 
: 1355 1339 nml$ab_msgblock [msb$l_flags] = msb$m_det_fld; : 
3 7 § 1340 nml$ab_msgblock Lmsb$b_code] = nma$c_Sts_pna; ° 
3 1 1341 nmlSab_msgblock Lmsb$w detail] = nma$c_ptno_nli; ‘ 
; 1358 1 tg ETURN nm($_sts_pna | ‘ 
; 1359 134 3 ‘ 
: 1360 1344 ‘ 
: 1361 1345 circuit_dsc fo) = 8: ¢ 
3 3 66 1 ‘3 circuit dsc L1) = 0; ‘ 
; 136 134 status = nma$searchtld (.rtndsc, : 
; 1364 1348 nma$c _pcno_nli ‘ 
> 1365 1349 circult_dse 04 : 
3 : 66 : 9 circuit-dse C135; ‘ 
: 1368 1 26 ! If the loop node is already set up on the circuit specified in the NICE 
3; 1369 135 ! CEFINE command, I'm done. Otherwise, make sure the circuit isn't already 
3 1371 ; 20 5 defined for some other loopnode. 
3 3 Le: 1356 ; IF NOT .status 
3 137 1357 OR (.status AND CHSNEQ (.circuit_dsc (OJ, .circuit_dse (1), 
3 1374 1358 length, .addr)) THEN 
3; 1375 1359 BEGIN 
; 1376 1360 ' 
3 1377 1361 !' Check to make sure there aren't any other loopnodes on the specified 
3 1378 1306 circuit in the node database. 
3; 1380 1364 H node_rec_dsc £0} = nml$k_recbflen; 
3; 1381 1365 node_rec_dsc (1J_= node_rec_buf; 
3; 1382 1366 ; node~rec_data L1] = node_rec_buf; : 
3 1383 1367 status = nml$read_loopnode (Tength, ' Address of circuit descriptor 
3 1384 1368 3 node_rec_dsc, ! 1/0 buffer descriptor 
3 1385 1369 3 node rec_data); ! Return node data descriptor 
> 1386 1370 3 IF .status NEQ rms$_eof THEN 
3; 1387 1371 4 BEGIN 
: 1388 1376 4 : 
3; 1389 1375 4 ! Circuit name must be unique for loop node. 
: 1390 1374 4 : 
; 1391 137? 4 nml\$q_entbfdsc £0} = nml$k_entbuf len; 
3 1336 1376 4 nml$q_entbfdsc (1) = nml$t_entbuffer; 
; 139 1377 4 nml$getrecowner (node_rec_data, 
3: 1394 1378 4 nml$c_loopnode, 
3; 1395 1379 4 nml$q_entbdfdsc, 
: 1398 1380 4 nml$ onto Teeg (0}); 
3; 1397 1381 4 nm\$ab_msgblock Cmsb saentity = nml$q_entbfdsc; ! Add ene ity descriptor pointer 
3; 1398 1386 4 nm\$ab_msgblock (msb$l"flags] = msb$m_det_fid OR msb$m_entd_fld; 
3 1399 1 & nml$ab_msgblock Lmsb$b_code] = nma$c_sts_pva; | 
> 1400 1384 4 nmi$ab-msgblock Cmsb$w-detail] = nmaSc_pcno_nli; | 
3: 1401 1385 4 RETURN nml$_sts_pva 
3 1606 1 36 END; 
3; 140 138 END; 
3 1404 1 M4 ! 
3 1405 1 ! The circuit is not already DEFINEd for some other loopnode. Add it to 
3 1608 ’ is the node's permanent database record. 
3 1408 1 4 status = nml$defparam (.sem_list, | 
3 1409 139 -bufdsc, 
3 1410 1394 - length, 
3 1411 1395 -addr, | 

| 
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wh NML$D FNODNLE Add loop node Pine parameter 12-8 08- 1 3be 99:38:38 ENML.SRC NAL T SPAN O30¢4 ° (17) 
: 141 139 rtndsc); ; 
: 1218 1337 ; RETURN .status : 
: 1414 1398 7 END; ! End of NMLS$DEFNODNLI : 
OOFC 000 .ENTRY NMLSDEFNODNLI, Save R2,R3,R4,R5,R6,R7 : 1283 F 
7 900000006 0 9 0092 MOVAB NMASSEARCHFLD, R7 : : 
§ 00 8000" 0 9E 0000 MOVAB NML$Q_ENTBFDSC, R6 ; : 
000000006 00 43 B89 MOVAB eT MSGBLOCK, R5 : : 
5E FBEG ce — 0001 MOVAB -1052(SP), SP : ; 
E D4 0001C CLRL - FLDADR : 1329 5 
5E DD 0001 PUSHL SP : 1330 ; 
08 AE i 00 PUSHAB FLDSIZE ; : 
7E 01F6 8F 3¢ 000 MOVZWL #502, =(SP) : ; 
14 AC dD 000 PUSHL RTND : F 
67 g4 FB 0028 CALLS #4, NMASSEARCHFLD : ; 
11 0 €E9 0002E BiBC RO, : : 
65 02 DO 00031 MOVL #2, NMLSAB_MSGBLOCK > 1339 ; 
046 AS 16 3 90 4 MNEGR # : NMLS$AB_MSGBLOCK+4 + 1340 ; 
08 AS O1FS 8F BO 00038 MOVW #501, NMLSAB_MSGBLOCK+8 : 1341 ; 
50 2C CE 0003E MNEGL #44, RO : 1342 : 
04 00041 ET : ; 
F8 aD 7C 00042 1$: CLRQ  CIRCUIT_DSC : 1345 ; 
FC AD OF 9004 PUSHAB CIRCUIT~DSC+4 : 1350 ; 
F8 AD OF 00048 PUSHAB CIRCUIT DSC : 1349 ; 
7E O1FS BF 3C 00048 MOVZWL #501, -TSP) + 1347 ; 
14 ac OD 9050 PUSHL RTNDSC : F 
67 4 FB 0005 CALLS #4, NMASSEARCHFLD ; F 
54 0 00 0006 MOVL RO, STATUS : ; 
0c 54 59 0059 BLBC STATUS, 2$ : 1356 : 
Oc AC 00 FC BD F8 AD 2d 0005C¢ CMPCS CIRCUIT_DSC, @CIRCUIT_DSC+4, #0, LENGTH, - ; 1357 : 
10 BC 0064 @ADDR : ; 
SA 13 0066 BEQL F : 
10 AE 0400 BF 3C 00068 2$: MOVZWL #1024, NODE_REC_DSC > 1364 ; 
14 AE 18 AE OF 006 MOVAB NODE_REC_BUF, NODE_REC_DSC+4 : 1365 ; 
OC AE 18 AE SE 000 MOVAB NODE-REC-BUF, NODE~REC_DATA+4 : 1366 ; 
08 AE 9F 0007 PUSHAB NODE-REC_DATA : 1367 ; 
14 AE 9F 00078 PUSHAB NODE-REC_DSC ; : 
0c AC OF Ove PUSHAB LENGTH : : 
000000006 00 FB 81 CALLS #3, NMLSREAD_LOOPNODE : : 
34 0 »D MOVL RO STATUS : : 
0001827A BF 4 D4 8 CPL TATUS, #98938 : 1370 : 
Be 40 F OA 094 MOVZBL #64, NML$Q_ENTBFDSC : 1375 : 
04 Ab CO Abd 9E 00098 MOVAB NMLST_ENTBOFFER, NMLSQ_ENTBFDSC+4 : 1376 : 
6 DD 00090 PUSHL R6 : 1380 : 
$ DD 0009F SHL oR : 1377 : 
D al PUSHL @# ; : 
14 AE 9F OOOA PUSHAB NODE_REC_DATA ; : 
000900006 09 04 FB 0006 CALLS #4, RMLSGETRECOWNER ; : 
4 =A 6 3 AD MOVAB NML$Q _ENTBFDSC, NMLSAB_MSGBLOCK+20 > 1381 : 
65 p B MOVL #18, RMLSAB_MSGBLOCK : 1 : : 

04 As 1 F B4 MNEGB #16, NMLSAB-MSGBLOCK+4 7 
08 Ad O1FS §8F BO 00088 MOVW #501, NMLSAB_MSGBLOCK+S8 ; 1384 
| 
| 


6 
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50 20 E BF MNEGL #32, RO > 1385 
C RET ; 

7E 10 AC 7D 000C2 38: MOV ADDR, =(SP) + 1395 

7E 08 AC 7D 000C6 MOVQ  BUFDSC, =(SP) + 1393 

04 aC DD QOOCA PUSHL SeM_t T + 1392 
FCEE CF 05 FB 000CD CALLS #5, NMLSDEFPARAM : 
54 50 0 000D2 MOVL RO. STATUS : 

04 00005 RET : 1398 


; Routine Size: 214 bytes, Routine Base: $CODE$ + 0550 


$2 
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WOK bes NMUSDEFOBJN Add object number parameter 17-888: 3B2 99:18:38 NML.SRC Me ee tio 
399 ZSBTTL 'NPLSDEFOBJNUM Add object number pereneter. 
GLOBAL ROUTINE NMLSDEFOBJNUM (SEM_LIST, BUFDSC, LENGTH, ADDR, RTNDSC)= 


'¢ 


+ 
FUNCTIONAL DESCRIPTION: 


This routine adds the object number parameter to the permanent 
data base record if it is unique. 


FORMAL PARAMETERS: 


SEM_LIST Parameter semantic table entry address. 

BuFSIZE Permanent database record maximum size. 

LENGTH Length of parameter to insert in record. 

ADDR Address of parameter to insert in record. 

RTNDSC Permanent database record buffer descriptor address. 


IMPLICIT INPUTS: 


VWEWN OO OONOUSWN “CO 0ONO 


IMPLICIT OUTPUTS: 
The parameter is added to the record. 


ROUTINE VALUE: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
It is assumed that the permanent data base file is already open. 
i 
i 
i 
i 
i 
COMPLETION CODES: 
; Always returns success (NML$_STS_SUC). 
i SIDE EFFECTS: 

; NONE 

le 


BEGIN 
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A 
nptel : DESCRIPTOR, 


KEY : WORD, 
STATUS; 
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NMASC_PCOB_NUM, 
FLDSIZE, 
FLDADR) : 
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§ MAP 
2 SEM_LIST : REF BBLOCK; 
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i If no object number is already defined or the object number is 
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v04 On b08 NMLSDEF OB huh Add object namer parameter 14S 3ep 1383 99: 48: 38 NML.SRCINMLLISPRM,. 9334 ’ (18) 


} changed by the command, and 

' the object number not zero (duplicate objects eres 0 are allowed), 
! make sure that the new object number is not already int 

permanent data base. 


if (NOT .STATUS 
(.STATUS AND CHSNEQ (.FLDSIZ 
AND CHSNEQ (.LENGTH, UPLIT(O), .LEN 


N 
BEGIN 


—_ 
- 
wn 


WN" OOONOULS WI -"OVOONO 


FLDADR 


i. .LENGTH, .ADDR))) 
GfH, .ADDRS 


SELLS EES 


KEY 
IF NAASAATCHREC (NMASC £ OPN O84. 


NEY 
ae PCOB_NUM, 
.LENGTH, 


“ADDR 
DumDsé) 


SNA AAA AAAAAO 


THEN 
' BEGIN 


i j Sbsect number is not unique. 


NML$AB_MSGBLOCK CMSBSL_FLAGS 
NMLSAB_MSGSLOCK CMSB$B_CODE) 
NMLSAB_MSGBLOCK CMSB$W_DETAI 


RETURN NML$_STS_PVA 


END; 
END; 


STATUS = NMLSDEFPARAM (.SEM_LIST, 
-BUFBSC, 
ee 

-ADOR, 
“RTNDSC) ; 


J] = MSBSM_DET puede 
as 


NM 
= PtOB. jum; 


= NMASC 
LJ = NMAS 


RETURN .STATUS 
END; ! End of NMLSDEFOBJNUM 


ee ee ee ee en ee ee ee ee ee oe oe ee ee ee 
Fel ele eke ede ee ee el Sed elk Belek Ie-ee-eke dek ek ek ek e ek e et t et at et tal tet ed ted 


DOOOOOO OWWOWWOWWOWOWONNNNANN 
NOMEN $$ OO ONAUE WN O OONOUSE 
=PNIPITINININININNWE & ELLE 


2 tt OOO 


Be Se Se Ge Se Be Ge Se Be Se Ge Se Se Se Oe Se Be FH SESH SESE SE Se SH Se Se Se Se See Se Se Seer Se Sse Sees es tees 
ee ee ce ee ce el ce ce a ee ee ee ce el ce ee a el ee el el cl el el ce ee 
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-PSECT S$PLITS,NOWRT ,NOEXE,2 


0003) -BLKB 3 
00000000 00054 P.AAG: .LONG 0 : 


-PSECT SCODES,NOWRT,2 


3¢ 00000 ENTRY NMLSDEFOBJNUM, Save R2.R3,R4,R5 ; 1400 
96 9000 HOV NAL SAB MSGBLOCK, 


55 000000006 0 
5E 1 


NMLSDEF OBJNU 


000000006 


oc AC 00 00 


10 BC 00000000" 


000000006 


04 
08 


FC62 


NMLSLISPRM NML special parameter handlin 
yO4-008 R Add object num 
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ogo 
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; Routine Size: 140 bytes, Routine Base: $CODE$S + 0626 


#4, NMASSEARCHFLD 
RO, STATUS 
STATUS 


US, 1$ 
FLDSIZE, @FLDADR, #0, LENGTH, @ADDR 


2$ 

LENGTH, P.AAG, @ADDR 
DUMDSC 

LENGTH, -(SP) 

#513, -(SP) 

KEY 

NML$Q_PRMDSC 

#7, NMASMATCHREC 

#2. NMLSAB_MSGBLOCK 
#16, NMLSAB_MSGBLOCK+4 
#315, NALSAB_MSGBLOCK+8 


ADDR, =(SP) 
BUF DSC 7 (SP) 


#5, NMLSDEF PARAM 
RO, STATUS 


AX-11 Bliss-32 V4.0=-74 
NML.SRCINMLLISPRM.B32; 


Re Ge Be Se Se Se Se Se Be Se Se Se Se Ge Ge Se Se Se Se Ge Se Se Ge Ge Se Ge Ge Se Se Se Se Ge Se Se Se Se Se Se Fe Se Se sees ee Fe Se Se Seas seas 
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0000 O00 00 ENTRY NMLSPURPARAM, Save nothing 3 1499 

be ff RE as 0080 ROVZML BSER.LIST, -(SP) : 1338 
000000006 90 0¢ FB $099 CALLS #2, NMASDELETEFLD : 

ot a 2 


Routine Size: 20 bytes, Routine Base: S$CODE$ + 06B2 


3; 1 16 1498 1 XSBTTL "NMLSPURPARAM Delete pereneter. 

; } i? 1338 } GLOBAL ROUTINE NMLSPURPARAM (RTNDSC, SEM_LIST)= 

; 1519 1301 1 !44 

3 ! , 1206 } FUNCTIONAL DESCRIPTION: 

: 13 ¢ 1288 ! } This routine removes a parameter from the permanent data base record. 
> 1526 1288 1 ! FORMAL PARAMETERS: 

; 1525 1507 1! 

; 1526 1508 1! SEM_LIST Parameter semantic table entry address. 
: 1 f 129? : RTNBSC Record buffer descriptor address. 

; 1529 1511 1°! IMPLICIT INPUTS: 

: 1530 1318 1! 

: \ 1 131? } } It is assumed that the permanent data base file is already open. 
; 1838 1515 1 ! IMPLICIT OUTPUTS: 

; 1534 1318 1! 

; 1535 tee The parameter has been removed from the record. 

>; 1536 1518 1! 

; 1537 1519 1 ! ROUTINE VALUE: 

3; 1538 1520 1 ! COMPLETION CODES: 

3; 1539 1821 1! 

; 1540 15 ¢ 1! Always returns success (NML$_STS_SUC). 

3 1541 13 1% 

: 1266 15246 1 ! SIDE EFFECTS: 

: 154 1525 1! 

3 1544 1526 1! NONE 

3 1545 1827 1! 

: 1546 1528 1 !-- 

3 1547 1529 1 

: 1548 1530 § BEGIN 

3; 1549 1531 

; 1550 1336 § MAP 

: 1351 1333 é SEM_LIST : REF BBLOCK; 

: 1385 1336 rd NMASDELETEFLD (.RTNDSC 

> 1554 1536 .SEM_LIST CPSTSW_DATAID); 

3; 1555 1537 

3; 1556 1538 RETURN NML$_STS_SUC 

3 1557 1539 

; 1558 1540 1 END; ! End of NMLSPURPARAM 
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RNODNNR Delete node nase parameter 10-128 73:58:38 ENMLsSRCINALLI SPR 


ZSBTTL ‘NMLSPURNODNNA Delete node name perpeeter’ 
GLOBAL ROUTINE NMLSPURNODNNA (RTNDSC, SEM_LIST)= 


++ 
FUNCTIONAL DESCRIPTION: 
his routine removes the node name parameter from the permanent 
data base record if it is not required. It is required in the case 
of a loop node. 


FORMAL PARAMETERS: 
RTNDSC Data buffer descriptor address. 
SEM_LIST Parameter semantic table entry address. 


IMPLICIT INPUTS: 
It is assumed that the permanent data base file is already open. 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
COMPLETION CODES: 
Error is returned if the parameter cannot be removed. 


SIDE EFFECTS: 
NONE 


BEGIN 


MAP 
SEM_LIST : REF BBLOCK; 


CAL 
FLDADR 
FLDSIZE; 
FLDADR = 0; 
FLDSIZE = 0; 
IF NMASSEARCHFLD (.RTNDSC, 
NMASC_PCNO_NLI, 
FLDSIZE, 
FLDADR) 
THEN 
BEGIN 


Node has circuit (is a loopnode) so name cannot be deleted. 


NMLSAB_MSGBLOCK CMSBSL_FLAGS] = MSBSM_DET_FLD; 
NMLSAB_MSGBLOCK [MSB$B-CODE) = NMASC_STS_PNA; 
NMLSAB_MSGBLOCK CMSBSW"DETAIL] = NMASC_PCNO_NNA; 


RETURN NML$_STS_PNA 
END 


ELSE 
NMASDELETEFLD (.RTNDSC, .SEM_LIST CPST$W_DATAID)); 


< 
J 


; Routine Size: 


NML_ special pereneter handling routines 18 


NMLSPURNODNN 


1238 
159 RETURN NML$_STS_SUC 
1600 

01 END; 


Delete node name parameter 


00 


04 00000 
52 000000006 00 3 OR 
SE 4 ¢ B88 
E 04 C 
04 AE D4 BRO 
SE 0D 0001 
08 AE 3 0013 
7E O1F5 8F 3C 00016 
04 AC DD 00018 
000000006 00 ge Fe Bpose 
11 Q €E9 000 
6 02 00 B88 8 
04 =A 16 Sf 0028 
08 A O1F4 8F BO 0002F 
5 2c CE 00035 
ee 0038 
7E 08 BC 3C 00039 
04 AC DD 00030 
000000006 00 02 FB 00040 
50 01 00 00047 
04 O004A 


75 bytes, Routine Base: S$CODE$ + 06C6 


6 
“Sep-19 
~3ep-19 


1$: 


Be 92:58:38 


at Bliss-32 A el od 
NML.SRCINMLLISPRM.B32; 


! End of NMLSPURNODNNA 


NMLSPURNODNNA, Save R2 
NML SAB _MSGBLOCK, R2 


FLBADR 

FLDSIZE 

FLDSIZE 

#501, -(SP) 

RTNDSC 

a, NMASSEARCHFLD 

#2. NMLSAB_MSGBLOCK 

@ : NML$AB_MSGBLOCK+4 
#500, NMLSAB_MSGBLOCK+8 
#44, RO 

@SEM_LIST, -(SP) 
RTNDSC 


#2, NMASDELETEFLD 
#1, RO 


; Lexemes/CPU-Min: 
: Memory Used: 131 pages 


: p 01:30. 
3 Lines/CPU Min: a a 
; 13283 
: Bemptlarton. Complete 
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v04= NMLS RNODNNA Delete node nese parameter 14- 3ep-19 984 98: 48: 39 NML.SRCINMLLISPRM.B32;1 2 (21) 

; 1688 1602 1 END : 
: 16 : 
> 1624 1604 0 ELUDOM : 
; PSECT SUMMARY : 
: Name Bytes Attributes : 
; SOWNS 334 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
; SPLITS 56 NOVEC SNOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ’ 
>; SCODES 1809 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; Library Statistics 
; eccesees Symbols ecoeseee Pages Processing ; 
; File Total Loaded Percent Mapped Time ‘ 
; _$255$DUA28:CNML.OBJINMLLIB.L32;1 341 42 12 27 00:00.1 : 
; 7$255$DUA28:CSHRLIBINMALIBRY.L32;1 887 21 2 47 00:00.2 : 
3 7$255$DUA28:CSYSLIBJSTARLET.L32; 1 9776 4 0 581 00:02.2 : 
; COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLLISPRM/OBJ=OBJ$:NMLLISPRM MSRC$:NMLLISPRM/UPDATE=(ENHS:NMLLISPRM) : 
; Size: 1809 code + 390 data bytes : 
; Run Time: 234 : 
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AH-BT13A-SE 
VAX/VMS V4.0 


0284 


